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SUMMARY 


Volume  II  contains  supporting  uite  for  the  details  presented  in  Volume  I. 
This  volume  contains  abstracts  for  the  32  technical  reports  reviewed 
during  the  program.  Included  in  the  literature  survey  section  is  a 
matrix  categorization  of  the  reports  by  subject  and  applicable  areas  of 
interest.  A  brief  description  is  presented  on  STAGS,  the  IMSC  computer 
program  used  to  perform  the  analysis  of  the  P2V-4  fuselage  bumper.  A 
comprehensive  description  of  program  KRASK  is  presented,  including  the 
theory,  initial  conditions,  the  User's  Guide,  and  a  sample  problem. 
Twenty-eix  channels  of  recorded  test  data,  13  channels  of  filtered  data, 
and  48  channels  of  integrated  test  data  and  film  data  are  presented  in 
another  section.  Additional  analytical  data  are  presented  in  the  last 
section. 
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IHTRODTOTION 


This  report  contains  test  and  analysis  data  in  support  of  the  detailed 
•  discussions  presented  in  Volume  I.  The  format  in  this  volume  is  consist¬ 

ent  vith  the  order  of  the  major  sections  of  Volume  I. 

i  Otoe  32  technical  reports  and  specifications  reviewed  during  the  study 

are  briefly  summarized  and  then  tabulated  in  a  Literature  Survey  Subject 
Index.  Program  STAGS  is  briefly  described  in  the  next  section.  This  is 
followed  by  a  comprehensive  description  of  Program  KRA.SH,  including 
input  and  output  data  formats  and  a  e ample  problem. 

The  test  data  is  presented  in  the  form  of: 

e  recorded  acceleration  and  strain  gage  time  histories 

s  100- cps  low-pass  filtered  acceleration  histories 

s  Integrated  velocity  time  histories 

e  Integrated  displacement  time  histories 

s  film  data 

e  calculated  test  impact  velocities 

The  analytical  data  consists  of  sample  output  plots  obtained  with  program 
KBASH  during  the  correlation  analysis. 
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LITERATURE  SURVEY 


LITERATURE  SYNOPSIS 

1.  Reed,  William,  Avery,  James  Fh.D.,  PRINCIPLES  FOR  IMPROVING  STRUCTURAL 
CRASHWORTHINESS  FOR  STOL  AND  CTOL  AIRCRAFT,  Aviation  Safety  Engineer¬ 
ing  and  Research;  USAAVLABS  Technical  Report  66-39#  U.  S.  Army  Avia¬ 
tion  Materiel  Laboratories,  Fort  Eustis,  Virginia,  June  1966, 

AD  637133. 

In  this  report,  the  area  of  crash  behavior  analysis  of  aircraft  structures 
is  investigated.  The  investigation  begins  with  the  definition  of  two  in- 
.  dices  of  crashworthiness  of  basic  aircraft  structures  and  the  analysis  of 
the  influence  of  several  general  types  of  structural  modifications  upon 
these  two  indices.  This  analysis,  using  fundamental  principles  of 
mechanics,  contains  several  simplifying  assumptions,  which  are  explained 
as  they  are  introduced. 

Design  concepts  to  improve  the  ability  of  the  "protective  container"  to 
maintain  living  space  for  occupants  during  a  crash  or  to  attenuate  the 
accelerations  experienced  by  occupants  during  a  crash  are  developed  for 
crash  conditions  which  are  either  primarily  longitudinal  in  nature  or 
primarily  vertical  in  nature.  Analytical  methods  are  then  provided  to 
show  how  and  when  to  apply  these  design  concepts  to  any  particular  air-  , 
craft.  Principles  are  presented  which  are  considered  tc  be  suitable  for 
use  during  design  of  new  air ora ft  as  well  as  modifications  of  existing 
aircraft . 

The  results  are  presented  from  three  full-scale  crash  tests  of  small 
twin-engine  airplanes  which  were  conducted  as  e  pert  of  this  investiga¬ 
tion. 

Among  the  pertinent  conclusions  of  the  report  are:  (1)  improvements  in 
crashworthiness  can  be  achieved  via  minor  changes  in  structural  design  or 
modification  of  existing  structure,  (2)  vertical  and  longitudinal  impact 
environments  offer  significantly  different  problems  in  designing  for 
improved  crashworthiness,  ana  (3)  analysis  of  aircraft  behavior  is  hamp¬ 
ered  by  the  lack  of  adequate  knowledge  o.f  the  relationships  which  apply 
to  the  determination  of  the  reaction  force  which  decelerates  the  aircraft 
upon  contact  with  the  ground. 

2.  Tumbow,  J.  W.,  Carroll,  D.  F.,  Haley,  J.  L.,  Jr.  Robertson,  S.  N. 
CRASH  SURVIVAL  DESIGN  GUIDE,  Dynamic  Science;  USAA\  ~ABS  Technical 
Report  70-22,  U.  3.  Army  Aviation  Materiel  laboratories.  Fort  Eustis, 
Virginia,  August  1969,  AD  695648.  (Most  recent  revision  is  U5AAMRDL 
TR  71-22,  AD  733358) 


This  report  is  a  design  guide  that  has  been  assembled  to  provide  the  engi¬ 
neer  with  an  understanding  of  the  basic  problems  associated  with  the 
development  of  crashworthy  U.  S.  Army  aircraft.  Where  possible,  solutions 
to  specific  problems  are  indicated.  In  areas  in  which  little  design  data 
are  available,  only  the  general  philosophy  appropriate  to  the  problem 
solution  is  presented;  the  details  of  such  solutions  ss  well  as  the  deg¬ 
ree  of  crashworthiness  to  he  achieved  must  be  left,  at  present,  to  the  in¬ 
genuity  of  the  designer. 


This  guide  presents,  in  a  condensed  form,  the  data,  design  techniques, 
and  criteria  that  are  presently  available  in  eight  areas:  (1)  aircraft 
crash  kinematic  and  survival  envelope,  (2)  airframe  crashworthiness 
design  criteria,  (3)  aircraft  seat  design  criteria  (crew  and  troop/ 
passenger),  (4)  restraint  system  design  criteria  (crew,  troop/passenger, 
and  cargo),  (5)  occupant  environment  design  criteria,  (6)  aircraft 
ancillary  equipment  stowage  design  criteria,  (7)  emergency  escape  pro¬ 
visions,  and  (8)  postcrash  fire  design  criteria. 

It  is  intended  that  both  airframe  and  component  designers  and  manufactur¬ 
ers  use  this  guide  to  extend  the  "region  of  survivability"  in  aircraft 
accidents  to  a  maximum  level. 

3*  Gatlin,  Clifford;  Goehel,  Donald;  and  Larsen,  Stuart;  ANALYSIS  OF 
HELICOPTER  STRUCTURAL  CRASHWORTHINESS,  Dynamic  Science;  USAAVIABS 
Technical  Report  70-71,  Eustls  Directorate  U.  S.  Amy  Air  Mobility 
Research  and  Development  Laboratory,  Fort  Eustis,  Virginia,  January 
1971,  AD  880680  and  AD  880678. 

This  report  describes  the  development  of  a  mathematical  model  that  will 
simulate  the  response  of  a  UH-1D/H  helicopter  airframe  to  vertical  crash 
loading  and  the  full-scale  crash  test  performed  to  verify  the  validity 
of  the  model. 

In  the  initial  phase  of  the  model  development,  a  study  was  made  of  43 
major  accidents  involving  the  UH-ID/K  aircraft  to  determine  what  types 
of  structural  failure  were  contributing  to  injuries  in  helicopter 
accidents . 

Based  on  the  results  of  this  accident  study,  a  nonlinear  lumped-mass 
model  of  23  degrees  of  freedom  was  developed  and  programmed  for  computer 
solution.  This  model  was  then  used  in  a  parametric  study  of  the  UH-1D/H 
to  evaluate  potential  areas  of  crashworthiness  improvement . 

At  the  conclusion  of  the  parametric  study,  a  full-scale,  instrumented 
drop  test  of  a  UH-1d/h  airframe  was  conducted.  The  data  generated  in 
this  test  were  correlated  with  the  model  data  to  determine  the  ability 
of  the  model  to  predict  airframe  accelerations  and  deflections  under 
crash  conditions. 


The  results  of  this  program  indicate  that: 

•  The  structural  weaknesses  contributing  to  most  impact  injuries 
in  UH-1D/H  helicopter  accidents  are  lack  of  resistance  to  fail¬ 
ure  in  lateral  rollover  and  lack  of  energy-absorbing  capability 
to  reduce  vertical  accelerations. 

•  The  mathematical  model  is  capable  of  accurately  predicting  the 
floor  and  engine  accelerations  and  deflections. 

•  In  Its  present  form,  the  model  does  not  accurately  predict  the 
transmission  accelerations  and  deflections. 

It  is  recommended  in  the  report  that  further  research  in  the  field  of 
mathematical  modeling  for  structural  crashworthiness  be  conducted. 

4.  Greer,  D.  I.,,  et  al,  CRASHWORTHY  DESIGN  PRINCIPLES,  General  Dynamics, 
Convairj  FAA  Technical  Report  ADS-24,  Federal  Aviation  Administra¬ 
tion,  Washington,  r.  C.,  November  1965,  Ap  623575* 

The  primary  areas  of  study  in  the  investigation  of  transport  aircraft 
crashworthiness,  presented  in  this  report,  are  as  follows: 

•  Mechanisms  of  failure  and  energy  absorption  structure: 

'To  retain  habitable  shell  structure. 

4  Delethalization: 

To  improve  occupant  retention  system  and  occupant  safety 

•  Evacuation: 

Structural  integrity  on  evacuation  efficiency 

The  study  indicates  that  crashworthiness  improvements  can  be  realized  by 
increased  fuselage  strength,  redistribution  of  load-carrying  materials  in 
the  structure,  and  the  use  of  more  ductile  materials  in  local  areas.  It 
is  atated  in  the  report  that  no  appreciable  weight  or  cost  increase  is 
necessary  to  improve  survivability  in  a  transport  aircraft  if  considera¬ 
tion  is  given  to  crashworthy  principles  at  the  preliminary  design  level. 

Investigations  into  occupant  retention  and  safety  indicate  that  scat 
failures  and  occupant  injuries  are  probably  more  often  the  result  of 
seat  and  support  structure  design  inadequacies  and  relative  velocity  be¬ 
tween  seat  and  occupant  than  of  excessive  airplane  deceleration. 

The  primary  parameters  affect  the  assumptions  regarding  the  crash  environ 
ment  are  terrain,  descent  angle,  impact  angle  and  approach  velocity. 


Although  ductility  is  an  important  property  of  airframe  structure  for 
crashworthiness  design,  it  is  difficult  to  measure.  Elongation,  tear 
resistance,  crack  propagation,  and  stress  or  strain  concentration  effects 
are  all  needed  to  determine  the  material  best  suited  to  a  crashworthy 
design. 

5.  Reed,  W.  H.,  et  al,  PULL  SCALE  DYNAMIC  CRASH  TEST  OP  A  DOUGLAS  DC-7 
AIRCRAFT,  Aviation  Safety  Engineering  and  Research;  FAA  Technical 
Report  ADS-37,  Federal  Aviation  Administration,  Washington,  D.  C., 
April  1965,  AD  624051. 

This  report  describes  a  test  program  designed  to  obtain  crash  environment 
data  regarding  fuel  containment  and  to  collect  data  on  the  behavior  of 
various  components  and  equipment  aboard  the  aircraft  using  a  DC-7  as  the 
test  vehicle. 

The  test  involved  a  DC-7  aircraft  which  was  guided  into  a  series  of 
crash  barriers  with  a  monorail  nose  gear  guidance  system.  The  aircraft 
was  accelerated  under  its  own  power  by  remote  control  for  a  distance  of 
4000  feet,  reaching  a  velocity  of  110  knots.  At  the  and  of  this . acceler¬ 
ation  run,  the  aircraft  Impacted  against  a  specially  designed  barrier 
which  removed  the  landing  gear,  permitting  the  aircraft  to  become  air* 
borne  until  the  moment  of  impact  with  wing  and  fuselage  crash  barriers. 

The  wing  and  fuselage  barriers  were  designed  to  provide  the  following 
crash  sequence;  The  left  wing  was  to  impact  against  an  earthen  mound 
shaped  to  produce  a  simulated  wing-low  accident.  Simultaneously,  the 
right  wing  was  to  impact  telephone  poles  implanted  vertically  to  simul¬ 
ate  trees.  Next,  the  main  fuselage  was  to  impact  against  an  8-degree 
slope.  The  slope  was  designed  so  that  the  aircraft  could  become  air¬ 
borne  after  sliding  a  short  distance  along  the  ground.  Finally  the  air¬ 
craft  was  to  impact  against  a  20-degree  slope  to  simulate  a  crash  with  a 
steeper  angle  of  impact. 

The  test  occurred  as  planned  except  that  the  aircraft,  instead  of  coming 
to  rest  on  the  20-degree  slope,  bounced  over  the  hill  on  which  the  slope 
was  formed  and  landed  at  the  base  of  the  backside  of  the  hill.  A  failure 
of  the  voltage  control  regulator,  in  the  data  recording  system,  prevented 
the  program  from  reaching  all  its  objectives. 

6.  Reed,  W.  H.,  et  al,  FULL-SCALE  DYNAMIC  CRASH  TEST  OF  A  LOCKHEED 
CONSTELLATION  MODEL  1649  AIRCRAFT,  Aviation  Safety  Engineering  and 
Research;  FAA  Technical  Report  ADS-38,  Federal  Aviation  Administra¬ 
tion,  Washington,  D.  C.,  October  1965. 

This  report  provides  the  details  of  a  full-scale  crash  test  of  a  large 
transport  aircraft.  The  purpose  of  the  test  was  to  obtain  crash  environ¬ 
ment  data  of  the  test  aircraft  and  the  various  experiments  installed 
aboard  the  aircraft. 
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The  Federal  Aviation  Agency  sponsored  the  test  program  with  the  participa¬ 
tion  of  several  other  organizations  who  provided  data  recording  equipment 
and  special  experiments  on  hoard  the  test  aircraft.  The  participating 
organizations  included  the  U.  S.  Navy,  the  U.  S.  Army ,  the  U.  S.  Air 
Force,  the  Society  of  Automotive  Engineers,  and  the  Flight  Safety  Founda¬ 
tion,  which  conducted  the  test  under  contract  to  and  with  the  guidance  of 
the  FAA.  The  special  experiments  consisted  of  military  crew  and  commer¬ 
cial  passenger  seats,  cargo  restraint  systems,  postcrash  locator  beacons, 
baby  and  child  restraint  systems,  radioactive  material  containers,  a  mil¬ 
itary  litter  system,  and  provisions  for  emergency  lighting. 

« 

The  test  involved  a  Lockheed  Constellation  Model  1649A  aircraft,  which 
was  guided  into  a  series  of  crash  barriers  with  a  monorail  nose  gear 
guidance  system.  The  aircraft  was  accelerated  under  its  own  power  by 
remote  control  for  a  distance  of  4,000  feet,  reaching  a  velocity  of  112 
knots.  Initial  impact  occurred  against  barriers  which  removed  the  landing 
gear,  permitting  the  airplane  to  become  airborne  until  the  moment  of  impact 
with  the  wing  and  fuselage  crash  barriers. 

The  wing  fuel  tanks  were  ripped  open  by  the  wing  barriers,  allowing  sim¬ 
ulated  fuel  to  spill  out  in  a  heavy  mist  during  the  crash  sequence.  The 
fuselage  was  broken  in  two  places  during  the  crash,  just  aft  of  the  cock¬ 
pit  between  fuselage  stations  370  and  380  and  just  aft  of  the  galley  be¬ 
tween  fuselage  stations  1020  and  1030.  Peak  longitudinal  accelerations 
on  the  order  of  25  G’s  were  measured  at  the  cockpit  floor  when  the  air¬ 
craft  impacted  the  20-degree  slope.  MoBt  of  the  on-board  experiments 
remained  in  their  relative  locations  throughout  the  test. 

7.  Fitzgibbon,  Donald  P.,  et  al,  CRASH  LOADS  ENVIRONMENT  STUDY,  Mechanics 
Research,  Inc.j  FAA  Technical  Report  DS-67-2,  Federal  Aviation  Admin¬ 
istration,  Washington,  D.  C.,  February  19^7,  AD  655920. 

This  report  presents  a  study  of  the  survivable  crash  environment  for 
commercial  type  aircraft.  The  study  includes  ar  analysis  both  of  the 
results  of  previous  crash  tests  of  full-scale  aircraft  components  and  of 
the  data  from  actual  commercial  aircraft  crashes  during  the  period  of 
1955  through  1965. 

The  severity  of  each  crash  test  has  been  determined  by  relating  the 
characteristics  c4*  the  measured  acceleration  time  histories  to  the  charac¬ 
teristics  of  human  tolerance  to  acceleration.  The  results  of  this  analy¬ 
sis  show  that  the  severity  of  a  crash  for  a  given  set  of  crash  parameters 
is  highly  dependent  upon  the  configuration,  structural  design,  and  weight 
of  the  aircraft. 

The  determination  of  the  crash  environment  is  accomplished  through  the  use 
of  the  shock  spectre  of  acceleration  time  histories  from  the  crash  tests. 

Shock  spectre  were  obtained  for  all  the  pertinent  acceleration  time 
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histories,  and  the  methods  determining  equivalent  pulses  are  presented. 
The  application  of  this  method  to  the  specification  of  component  test 
environment  is  discussed. 


The  data  from  actual  commercial  crashes  is  presented  and  analyzed.  It 
was  found  that  the  most  common  survivable  accident  can  "be  described  as 
occurring  during  the  landing  phase  of  the  flight,  with  null,  pitch,  roll 
and  yaw  angles,  with  an  angle  of  impact  of  less  than  5  degrees,  and  with 
an  impact  velocity  of  3.66  feet  per  second.  The  most  common  obstacle  en¬ 
countered  during  the  crash  v^s  troes.  It  was  also  found  that  there  were 
no  strong  correlations  between  the  crash  parameters  and  the  severity 
measured  in  terms  of  the  percentage  of  the  occupants  killed. 

Methods  for  generalizing  the  crash  environments  relative  to  the  treatment 
of  fuel  tank  locations  and  components  attached  to  fuselage  floor  structure 
are  presented.  Idealization  of  the  acceleration  time  history  curves  is 
considered  to  be  adequate  for  fuel  tank  locations  because  of  the  large 
dampening  effect  of  the  fuel.  For  components  attached  to  the  structure, 
use  of  the  shock  spectra  is  advocated  for  generalizing  the  crash  environ* 
ment  in  order  to  include  significant  high-frequency  loads  in  the  selection 
of  design  criteria. 

Based  on  the  results  of  the  study,  the  requirements  for  future  full-scale 
tests  are  presented.  The  crash  parameters  are  presented  for  a  modern  jet 
aircraft  to  produce  a  marginally  survivable  accident. 

The  instrumentation  requirements  are  described  and  a  data  acquisition 
system  is  recommended. 

8.  Greer,  D.  L.,  et  al,  DESIGN  STUDY  AND  MODEL  STRUCTURES  TEST  PROGRAM 
TO  IMPROVE  FUSELAGE  CRASHWORTHINESS,  General  Dynamics,  Convairj  FAA 
Report  DS-67-20,  Federal  Aviation  Administration,  Washington,  D.  C., 
October  1967. 

This  report  presents  the  results  of  a  study  to  evaluate  methods  to  im¬ 
prove  crashworthiness  by  retaining  transport  cabin  integrity  during  crash 
impact  loadings. 

The  study  includes  analyses  of  the  effects  of  strengthening,  redistribu¬ 
tion  of  bending  material,  and  incorporation  of  energy  dissipating  features 
on  the  ability  of  the  fuselage  to  provide  a  protective  shell  around  the 
occupants.  Analytical  results  were  substantiated  by  a  test  program. 

The  test  program  included  compression  tests  of  plate-stringer  panels  and 
drop  tests  of  representative  fuselage  structure.  Tests  were  made  on 
three  100-inch-diaraeter  cylindrical  sections  dropped  axially,  four  seg¬ 
ments  of  100- inch-diameter  cylinders  dropped  laterally,  and  a  atructur-  • 
ally  complete  nose  section  of  a  jet  transport  dropped  in  a  10-degree  nose- 
down  attitude. 


The  requirement  for  a  plastically  deforming  structure  is  important  for 
both  axial  and  vertical  collapse  characteristics  of  a  fuselage.  Plastic 
collapse  provides  the  most  efficient  energy-absorbing  capability  and  also 
reduces  the  possibility  of  excessive  tearing  or  complete  disintegration 
of  the  structure. 

The  portion  of  the  longitudinal  kinetic  energy  that  can  be  absorbed  by 
structural  crushing  is  not  a  significant  part  of  the  energy  produced  at 
the  existing  takeoff  and  landing  speeds. 

Both  energy-absorbing  capacity  and  failure  mode  are  important  for  ver¬ 
tical  crushing  conditions.  The  recommended  manner  of  reinforcement  for 
the  fuselage  lover  frame  segments  strengthens  the  bottom  centerline  por¬ 
tion  and  the  floor  beam  to  frame  area.  No  significant  weight  or  cost 
penalty  is  involved  since  the  crash  requirement  reinforcement  occurs  at 
the  most  critical  areas  for  existing  design  conditions. 

An  analytical  approach,  using  a  digital  computer  program  to  simulate  the 
response  of  fuselage  Impact,  is  Included.  Hie  mathematical  model  for 
this  program  consists  of  a  beam  with  10  mass  items  to  represent  the  fuse¬ 
lage.  Each  mass  is  supported  on  a  variable,  partially  restoring  spring 
to  simulate  the  vertical  crushing  characteristics  of  the  lower  fuselage 
structure.  This  analysis  Indicates  that  fuselage  bending  strength  Is  of 
primary  concern  in  crashworthy  considerations. 

9-  Bigham,  James  P.,  and  Bingham,  William  W.,  THEORETICAL  DETERMINATION 
OF  CRASH  LOADS  FOR  A  LOCKHEED  1649  AIRCRAFT  IN  A  CRASH  TEST  PROGRAM, 
Boeing  Airplane  Company;  FAA  Technical  Report  ADS-15,  Federal  Avia¬ 
tion  Administration,  Washington,  D.  C.,  July  1964. 

This  report  presents  the  results  of  an  analytical  study  to  theoretically 
predict  the  loads  to  be  experienced  by  a  Lockheed  Model  1649  Super  Con¬ 
stellation  during  a  controlled  crash.  Acceleration  time  histories  in 
directions  normal  and  parallel  to  the  fuselage  cabin  floor  are  given  at 
three  posit  lent,  along  the  length  of  the  fuselage  for  impact  velocities  of 
140,  160,  180,  and  200  feet  per  second.  Results  of  investigations  of  the 
effects  of  variations  in  important  problem  parameters  are  also  presented. 

It  is  concluded  that  during  the  initial  impact  at  l60  feet  per  second, 
peak  normal  accelerations  of  11,  0,  and  -3  times  that  of  gravity  (Grs) 
will  be  developed  0.03  second  after  impact  at  Body  Stations  180,  682,  and 
1176.  Maximum  normal  and  longitudinal  accelerations  during  the  6-degree 
ramp  crash  will  occur  at  0.24  second.  Maximum  normal  accelerations  at 
Body  Stations  180,  682,  and  1176  will  be  -17,  8,  and  35  G*s,  respectively 
Maximum  longitudinal  accelerations  will  be  4  Gfs. 
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It  it  further  concluded  that  the  nose  of  the  airplane  will  bend  upward  10 
inches  relative  te  the  center  section  of  the  fuselage  O.lh  second  after 
impact.  Ibis  deflection  vill  probably  be  of  sufficient  magnitude  to  ex¬ 
ceed  the  ultimate  strength  of  the  fuselage  above  the  cabin  floor.  If  the 
fuselage  should  fail,  all  analytical  results  beyond  the  time  of  failure 
vill  be  questionable  to  a  degree  dependent  on  the  type  of  failure  that 
occurs . 

10.  Turnbov,  J.  V.,  Ph.D.*  A  DYNAMIC  TEST  OF  AN  B-25  HELICOPTER,  Avia¬ 
tion  Crash  Injury  Research,  Division;  SAE  Report  517A,  National 
Aeronautic  Meeting,  April  1962. 

Ibis  paper  describes  the  first  test  conducted  as  an  exploratory  study 
to  (l)  provide  a  "first*1  look  sit  the  acceleration  environment  in 
helicopter  accidents  and  (2)  evaluate  certain  problems  inherent  in  the 
dynamic  crash  testing  of  full-scale  helicopter  and  VTOL  aircraft. 

An  H-25A  Masecki  helicopter  was  employed  in  recreating  a  "typical" 
accident  occurring  with  both  longitudinal  and  vertical  velocity  components 
at  impact.  Acceleration  patterns  at  various  stations  in  the  aircraft  and 
in  the  dummy  occupants  vere  found  to  be  incomparable  with  the  results  of 
similar  tests  conducted  for  flxed-viag  aircraft  by  HACA.  For  the  heli¬ 
copter,  large-magnitude,  short- duration  accelerations  vere  observed.  By 
contrast,  accelerations  of  smaller  magnitude  but  with  relatively  longer 
duration  vere  found  far  transport-type  aircraft  by  SAGA.  When  the 
acceleration,  environment  for  the  H-25  is  compered  with  known  tolerance 
limits  for  human  subjects,  evidence  of  the  need  for  modification  in  crew 
end  passenger  seats  to  provide  better  crash  protection  for  the  aircraft's 
occupants  becomes  apparent. 

11.  Leredaht,  B.  H-,  et  el,  SOME  NOTES  ON  THE  PHYSIOLOGICAL  TOLERANCE  TO 
ACCELERATION,  Douglas  Aircraft  Ccopany,  Report  ES  40253,  February 
1961, 

This  report  presents  a  compilation  of  date  concerning  human  end  animal 
tolerance  to  acceleration.  Longitudinal  and  transverse  accelerations, 
both  positive  and  negative,  are  covered.  The  effects  of  rate  and  dur¬ 
ation  of  acceleration  are  discussed. 

12.  Stech,  Ernest,  and  Payne,  Peter,  DYNAMIC  MODEIfi  OF  THE  HUMAN  BODY, 
Frost  Engineering  Development  Company;  AMRL-TR- 66-157,  Aerospace 
Medical  Research  Laboratory,  Vright-Patterson  Air  Force  Base,  Ohio, 
November  1969,  AD  701  383. 

This  report  covers  the  analytical  modeling  of  the  human  body  as  a  single- 
degree- of -freedom  system.  Sources  of  body  dynamic  date  include  drop 
teats,  sled  tests,  vibration  tests,  structural  tests,  animal  tests, 
accident  data  and  ejection  seat  data.  Eetiaates  of  human  body  mass  and 
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spring  stiffness,  natural  frequency,  damping,'  and  critical  force  levels 
are  included.  The  effect  of  age  on  natural  frequency  and  critical  forces 
is  estimated,  as  is  the  nonlinearity  of  the  spinal  column. 
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PERSONNEL  RESTRAINT  SYSTEMS  STUDY,  BASIC  CONCEPTS,  Plight  Safety 
Foundation;  TCREC  Technical  Report  62-94,  Task  9R95-20-001-01,  U .S . 
Army  Transportation  Research  Command,  Fort  Eustis,  Virginia, 
December  1962. 


This  report  covers  the  basic  concepts,  applicable  to  all  U.  S.  Army  air¬ 
craft,  that  are  pertinent  to  a  personnel  restraint  system  study.  Man’s 
limits  of  tolerance  to  decelerative  loads  are  reviewed  and  related  to  the 
existing  restraint  harnesses  currently  being  used  in  A nay  aircraft.  The 
magnitude  of  decelerative  loads  to  which  airframes  of  various  aircraft 
have  been  dynamically  tested,  while  still  maintaining  a  livable  volume 
in  the  cabin,  is  also  reviewed,  and  it  is  noted’ that  man's  limits  are,  in 
general,' higher  than  airframe  limits. 


Several  practical  harness  configurations  are  discussed,  the  load  distrib¬ 
ution  between  the  various  components  of  the  harness  is  explored,  and 
design  strength  values  are  recommended .  The  dynamic  strength  of  restraint 
systems  is  also  discussed  and  reflated  to  the  static  strength. 


14. 


Coleman,  Rolf  R.,  THE  MECHANICAL  IMPEDANCE  CF  THE  ftUMAN  BODY  IN  • 
SITTING  AND  STANDING  POSITION  AT  LOW  FREQUENCIES,  Biomedical  Labor¬ 
atory;  ASD  technical  Report  61-492,  Aeronautical  Systems  Division, 
Wrigbt-Patterson  Air  Force  Base,  Ohio,  Sept enter  1961. 


This  report  discusses  the  application  of  the  theory  of  the  mechanical 
impedance  of  systems  with  one  or  more  degrees  of  freedom  to  the  human  ■ 
body.  A  method  of  measuring  mechanical  impedance  and  determining  the 
parameters  of  the  vibrating  systems  is  developed.  Impedance  curves  for 
longitudinal  vibrations  of  a  sitting  and  standing  subject  are  established 
for  bhe  frequency  range  of  1  to  20  cps.  The  influence  of  varied  posture 
and  restraining  systems  is  investigated.  Dynamic  movements  of  body  parts 
are  measured,  directly  or  indirectly,  and  compared  with  the  impedance 
curves.  The  responsible  elements  in  the  body  for  the  apparent  resonances 
are  Identified.  Correlations  between  the  impedance  function  of  the  body 
and  the  subjective  tolerance  curve  to  vibration  are  found,  and  the  reasons 
for  the  tolerance  limits  are  explained.  The  variability  of  subjective 
tolerances  due  to  varying  posture,  restraining  systems,  cushions,  duration 
of  expo sure,  and  vibrations  is  discussed,  and  conclusions  for  the  develop¬ 
ment  oi  protective  devices  are  drawn.  The  correlation  between  the  steady- 
state  response  of  the  human  body  system  and  the  effects  of  impact  is 
discussed. 
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15.  Eiband,  Martin  A.,  HUMAN  TOLERANCE  TO  RAPIDLY  APPLIED  ACCELERATIONS: 

A  SUMMARY  OF  THE  LITERATURE,  Lewis  Research  Center,  NASA  Memo 
5“19-59E>  National  Aeronautics  and  Space  Administration,  Washington, 
D.  C.,  June  1959* 

The  report  describes  a  survey  of  the  literature  to  determine  human  toler¬ 
ance  to  rapidly  applied  accelerations.  Pertinent  human  and  animal  exper¬ 
iments  applicable  to  space  flight  and  to  crash  impact  forces  are  analyzed 
and  discussed.  These  data  are  compared  and  presented  on  the  basis  of  a 
trapezoidal  pulse.  The  effects  of  body  restraint  and  of  acceleration 
direction,  onset  rate,  and  plateau  duration  on  the  maximum  tolerable  and 
survivsble  rapidly  applied  accelerations  are  shown. 

Resul.tr.  of  the  survey  indicate  th&c  adequate  torso  and  extremity  restraint 
is  the  primary  variable  in  tolerance  to  rapidly  applied  accelerations. 

The  harness,  or  restraint  system,  must  be  arranged  to  transmit  the  major 
portier.  of  the  accelerating  force  directly  to  the  pelvic  structure  and 
not  via  the  vertebral  column.  When  the  conditions  of  adequate  restraint 
have  been  Diet,  then  the  other  variables  —  direction,  magnitude,  and  on¬ 
set  rate  of  rapidly  applied  accelerations  —  govern  maximum  tolerance  and 
injury  limits. 

The  results  also  indicate  that  adequately  stressed  aft-facing  passenger 
seats  offer  maximum  complete  body  support  with  minimum  objectionable  har¬ 
nessing.  Such  a  seat,  whether  designed  for  2Q-,  3Q-,  or  40-G  dynamic 
loading,  would  include  lap  strap,  chest  (axillary)  strap,  and  winged-back 
seat  to  increase  headward  and  lateral  G  protection,  full-height  integral 
head  rest,  arm  rests  (load-bearing)  with  recessed  handholds  and  provisions 
to  prevent  arms  from  slipping  either  laterally  or  belaud  the  seat  back, 
and  leg  support  to  keep  the  lega  from  being  wedged  under  the  seat. 

For  crew  member >  and  others  whose  duties  require  forward-facing  seats, 
maximum  completi  body  support  requires  lap^  shoulder,  and  thigh  straps, 
lap-belt  tie-dcvn  strap,  and  full-height  eeat  back  with  integral  head 
support . 

1 6.  O’Bryan,  Thomas,  and  Hatch,  Howard,  Jr.,  LIMITED  INVESTIGATION  OF 
CRUSHABLE  STRUCTURES  FOR  ACCELERATION  PROTECTION  OF  OCCUPANTS  OF 
VEHICLES  AT  LOW  IMPACT  SPEEDS,  Langley  Research  Center,  NASA-TN-D- 
158,  National  Aeronautics  and  Space  Administration,  Washington,  D.C., 
October  1959. 

The  report  describes  the  results  of  a  limited  investigation  to  determine 
the  characteristics  of  three  materials  to  see  how  they  can  be  applied  for 
human  protection  against  accelerations  encountered  at  low  impact  speede. 

As  a  result,  if  given  man’s  physiological  tolerance  to  abrupt  accelera¬ 
tion,  which  has  not  yet  been  well  defined,  an  alleviation  system  can  be 
designed. 


WWWww 


|  Foamed  plastics  require  considerable  depth  to  provide  a  given  stopping 

distance  for  impact  alleviation,  and  their  use  would  require  some  control 
of  rebound.  They  can  be  made  ^oft  enough  to  obtain  the  low  onset  of 
acceleration  that  may  be  necessary  for  man  where  depth  is  not  limited. 

Aluminum  honeycomb  is  an  efficient  material  for  impact  load  alleviation' 
from  the  standpoint  of  usable  material  depth,  and  it  exhibits  very  little 
rebound.  The  stiffness  of  the  material  results  in  a  very  high  initial  . 
onset  rate  of  acceleration.  For  many  installations,  this  can  be  con¬ 
trolled  by  reducing  the  initial  loading  area  of  contact  to  get  the  mater¬ 
ial  to  start  falling. 

IT.  UH-1  ACCIDENT  SUMMARY,  USABAAR  Report,  U.  S.  Army  Board  for  Aviation. 
Accident  Research,  Ft.  Rucker,  Alabama,  19^3* 

i " 

The  report  contains  a  summary  of  all  Amy  UH-1  accident,  incident,  and 
forced-landing  experiences  for  the  5-year  period  ending  27  September  1963* 
Percentage  pie  charts  for  major  and  minor  accidents,  incidents,  and  forced 
landings  are  gj!ven  in  percentages  of  total  cause  factors  and  are  not 
directly  related  to  the  total  number  of  mishaps  in  each  category,  as  these 
mishaps  often  Involve  multiple  cause  factors. 

Except  for  forced  landings,  pilot  cause  factors  account  for  the  giant5* 
share  of  each  pie  chart.  This  points  to  a  need  for  greater  quality 
control  in  personnel  selection,  training,  and  supervision. 

It  is  noted  that  many  incidents  and  farced  landings  are  recorded  in  this 
nummary  with  cause  factors  not  reported.  This  results  from  reporting 
units  failing  to  provide  supplemental  information  as  it  becomes  available. 
Reports  of  this  nature,  without  supplemental  d?ia,  are  of  little  use  to 
the  aviation  safety  program. 

18.  Mattox,  Kenneth  !.,  INJURY  EXPERIENCE  IN  ARMY  HELICOPTER  ACCIDENTS, 

U.  S.  Army  Board  for  Aviation  Accident  Research,  Ft.  Rucker,  Alabama, 
September  1967,  AD  658079. 

The  gross  pattern  of  injury  site,  frequency,  and  seriouness  in  U.  S.  Amy 
helicopter  accidents  is  presented  in  this  report.  Although  95  percent 
j  of  the  major  helicopter  accidents  are  survivable,  22  percent  of  the  deaths 

j  in  all  helicopter  accidents  occur  under  survivable  conditions.  The  mech- 

|  anisms  of  these  avoidable  deaths  are  discussed  as  well  as  the  steps  that 

|  should  be  taken  to  reduce  the  morbidity  and  mortality  rate. 

! 

|  Correlation  of  accidents  in  Array  helicopter  experience  to  injuries  in- 

t  curred  in  them  requires  an  analysis  of  the  operational  envelope.  Most 

j  U.  S.  Amy  aircraft  fly  in  and  out  of  confined  areas  at  relatively  slow 

j  speed  and  low  altitudes.  Operational  areas  are  frequently  complicated 

!  by  wires,  tires,  towers,  and  rough  terrain  at  the  landing  site.  Heli- 

j  copters  are  not  equipped  with  ejection  seats,  and  because  of  the 
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altitudes  and  mission#  flown,  parachutes  are  not  worn  by  the  aviators. 

U,  S.  Aray  helicopters  operate  in  sn  environment  that  nears  the  extreme 
both  in  density  of  traffic  and  operational  terrain  (versus  commercial 
airlines  flying  in  and  out  of  London  International).  Therefore,  although 
the  helicopter  has  the  capability  to  autorotate  in  case  of  in-flight 
emergency,  the  aviator  must  always  ride  the  helicopter  in. 

19.  Turabcw,  James  W.,  and  Haley,  J.  L.,  Jr.,  A  REVIEW  OF  CRASHWORTHY 
SEAT  DESIGN  PRINCIPLES,  Arizona  State  University  and  AVSER  Flight 
Safety  Foundation,  SAE  Paper  85IA,  Air  Transport  and  Space  Meeting, 
April  1964. 

This  paper  briefly  reviews  the  known  factors  pertinent  to  the  design  of 
crashworthy  aircraft  seats.  Ultimate  design  load  factors,  baaed  upon 
human  tolerance  to  decelerative  load  and  the  anticipated  loads  in  accident 
situations  for  fixed-wing  .transport  aircraft,  light  fixed-wing  aircraft, 
and  military  helicopters  are  presented.  The  use  of  energy-absorbing 
devices  is  discussed.  In  this  paper  it  is  concluded  that  energy  absorbers 
would  not  be  practical  to  reduce  longitudinal  acceleration  levels  involv¬ 
ing  large  velocity  changes  in  a  single  deceleration  pulse.  However,  it 
is  deemed  possible  to  provide  energy  absorption  to  limit  vertical  acceler¬ 
ations  to  the  order  of  20  to  25  G’s  in  accidents  occurring  at  rates  of 
50  to  50  fps,  assuming  some  vertical  deformation  of  the  structure. 

20.  Rich,  M.  J.,  VUINERABILITY  AND  CRASHWORTHINESS  IN  THE  DESIGN  OF 
ROTARY  WING  VEHICLE  STRUCTURES,  SAE  Paper  660673,  1968. 

This  paper  indicates  that  the  problem  of  crash  survivability  capability 
resolves  to  the  following  areas  of  considerations: 

e  Absorption  of  the  forward  velocities  through  ground  friction 
and  structural  elastic/plastic  structural  energy. 

e  Absorption  of  the  vertical  impact  through  elastic/plaetic 
structural  energy. 

•  Provision  of  local  strength  and  living  space  for  the  occupants. 

The  paper  states  that  the  95th  percentile  potentially  survivable  accident 
environment  (vertical  ■  Vf  fps,  horizontal  •  60  fps,  lateral  *  2?  fps) 
appears  to  be  a  rational  and  conservative  criterion.  The  95th  percentile 
crash  acceleration  data  appears  to  be  potentially  within  human  tolerance 
limits.  Peak  loads,  however,  are  very  dependent  on  the  amount  of  sub¬ 
structure  to  absorb  the  crash.  Significant  improvements  can  be  achieved 
by  considering  the  failure  modes  such  that  living  space  for  survival  is 
provided.  This  report  also  discusses  the  use  of  auxiliary  landing  gear 
energy  absorption  in  addition  to  airframe  crushing  and  seat  energy  absorp¬ 
tion. 


21.  Moseley,  Harry,  Colonel,  et  al,  RELATION' OF  INJURY  TO  FORCES  AND 
DIRECTION  OF  DECELERATION  Hi  AIRCRAFT  ACCIDENTS,  Journal  of  Aviation 
Medicine ,  Vol.  29,  October  1953; 

The  article  reviews  all  major  cargo- and  transport-type  aircraft  accidents 
In  the  U.  S.  Air  Force  during  a  2-year  period  to  determine  the  path  that 
such  aircraft  follow  during  actual  crashes  and  to  relate  this  to  varia¬ 
tions  in  aircraft  attitude  and  to  injury  of  occupants.  The  results  indi¬ 
cate  that  the  airframe  tends  to  follow  its  established  path  and  to  remain 
stable  around  its  own  axis.  At  high  velocities,  the  airframe  continues 
in  its  established  course  even  though  major  components  are  destroyed.  * 

With  decreased  velocity,  major  course  and  attitude  deviations  may  result 
primarily  from  striking  impeding  objects.  Most  injuries  are  sustained 
when  the  aircraft  is  experiencing  little  deviation  from  its  established 
path.  The  most  obvious  and  most  easily  effected  remedial  measures  would 
involve  improvement  of  structural  and  retention  strength  cf  aircraft  scats 
and  moorings.  These  should  be  designed  to  provide  maximum  protection 
against  fere  and  aft  deceleration  with  additional  consideration  being 
given  to  designing  for  relatively  small  yaw  deviation. 

22.  Brinkley,  James  W.,  DEVELOPMENT  OF  AEROSPACE  ESCAPE  SYSTEMS,  Air 
University  Review,  July-August  1968. 

This  article  reviews  the  development  of  aerospace  escape  systems  from 
the  aeromedical  standpoint  and  describes  recent  advances  that  have  made 
it  possible  to  define  more  completely  the  human  factors  limiting  the 
escape  system  performance  envelope.  The  parameters  which  directly  or 
indirectly  determine  if  the  ejeetee  will  be  injured  by  the  ejection 
acceleration  are  the  maximum  acceleration,  duration  of  maximum  accelera¬ 
tion,  and  rate  and  duration  of  the  entire  acceleration.  Within  the  last 
5  to  3.0  years,  there  has  been  improvement  in  the  methodology  to  describe 
human  systems.  The  use  of  the  Dynamic  Response  Index  (bKC)  to  model  the 
critical  mode  of  injury  when  accelerations  are  applied  parallel  to  the 
vertebrae  is  discussed. 

23.  Weinberg,  L.  V.  T.,  CRASHWORTHINESS  EVALUATION  OF  AN  ENERGY  ABSORP¬ 
TION  EXPERIMENTAL  TROOP  SEAT  CONCEPT,  Aviation  Safety  Engineering 
and  Research;  USATRECOM  Technical  Report  65-6,  U.  5.  Army  Transpor¬ 
tation  Research  Command,  Fort  Eustis,  Virginia,  February  1965, 

AD614582, 

/ 

This  report  describes  an  evaluation  cf  an  experimental  troop  seat  concept 
that  was  progressively  developed  and  dynamically  tested.  The  seats  were 
installed  and  tested  along  with  other  equipment  in  four  full-scale  crashes 
of  CH-21  helicopters. 
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The  designs  represented  progressive  steps  in  the  development  of  a  troop 
seat  using  strut-type  energy  attenuation.  The  basic  concept  was  a  single- 
passenger,  side-facing,  bucket  seat.  Anthropomorphic  dummies,  restrained 
by  lap  belts  and  single'  diagonal  chest  straps,  were  placed  in  the  seats 
to  provide  simulated  human  loading  characteristics  during  impact.  Accel¬ 
erometers  were  mounted  in  the  pelvic  cavity  of  the  dummies  to  permit  re¬ 
cording  of  the  impact  decelerations.  Floor  accelerations  were  also 
measured  near  the  seat  installations.  Tensiometers  recorded  the  belt 
forces.  High-speed  cameras  positioned  in  the  helicopters  recorded  the 
reaction  of  the  dummies  and  experimental  seats  during  the  crash  sequences. 

The  seats  were  divided  into  two  basic  functional  units:  first,  a  seat 
base  incorporating  an  energy-absorbing  strut  to  provi.de  the  vertical 
support;  and  second,  a  curved  nylon  seat  back  that  was  designed  to  pro¬ 
vide  the  occupant  with  restraint  in  the  lateral  and  longitudinal  direc¬ 
tions,  in  addition  to  the  restraint  provided  by  the  lap  belt  and  chest 
strap.  The  test  series  demonstrated  the  effectiveness  of  strut-type 
energy  absorption  as  a  method  of  attenuating  crash  forces. 

The  report  is  presented  such  that  each  test  involved  is  discussed  as  well 
as  the  overall  analysis  and  evaluation.  Photographs,  acceleration 
records,  and  kinematic  sketches  are  included  where  pertinent. 

2h.  Bruggink,  G.  M.,  and  Schneider,  D.  J.,  M.P.,  LIMITS  OF  SEAT  BELT 

PROTECTION  DURING  CRASH  DECELERATIONS,  Aviation  Crash  Injury  Research; 
TCREC  61-115,  U-  S.  Army  Transportation  Research  Command,  Fort  Eustis, 
Virginia,  September  1961,  AD  265868. 

This  report  reviews  three  accidents  in  which  aircraft  occupants,  restrained 
only  by  seat  belts,  received  serious  or  fatal  decelerative  Injuries.  The 
study  indicates  some  of  the  trauma  that  may  be  expected  when  the  tolerable 
and  injurious  limits  of  seat-belt  protection  are  exceeded. 

.The  results  indicate  that  full  protection  of  seat-belt  restraint  can  be 
realized  only  when  the  occupant  has  an  unobstructed  path  for  his  flailing 
extremities  and  upper  torso.  If  this  condition  does  not  exist,  the  pro¬ 
tection  offered  by  seat-belt  restraint  may  not  be  limited  by  G  factors 
but  by  the  injurious  aspects  of  the  occupant’s  environment. 

Seat-belt-caused  injuries,  in  general,  should  not  be  considered  as  proof 
against  a  seat  belt’s  usefulness,  but  as  evidence  of  its  necessarily 
limited  protective  value  when  compared  to  restraint  systems  that  offer 
better  load  distribution  over  the  entire  skeleton. 

To  provide  maximum  protection,  the  strength  of  the  occupant  tie-down  chain 
(seat,  seat  belt,  floor)  should  be  determined  by  the  threshold  between 
the  injurious  and  fatal  limits  of  seat-belt  restraint. 
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An  aircraft  scat-belt  restraint  system  vith  an  energy-absorbing  capability 
of  25  G*s  (occupant  weight,  200  pounds)  for  a  duration  of  at  least  0.2 
second  may  form  a  realistic  compromise  between  ti*e  ideal  and  the  practical 
dynamic  strength  of  such  a  system. 

25.  Haley,  J.  L.,  HELICOPTER  STRUCTURAL  DESIGN  FOR  IMPACT  SURVIVAL,  U.8. 
Army  Board  of  Aviation  Accident  Research,  Ft.  Rucker,  Ala.,  November 
1970. 

This  paper  discusses  the  factors  pertinent  to  crashworthiness  design  to 
enable  occupants  to  survive  the  impact  forces  developed  during  a  survir- 
able  crash.  The  paper  presents  results  from  a  crash  performance  study  of 
71  utility  helicopter  accidents.  In  the  paper  it  is  concluded  that: 

•  impact  type  injuries  cause  more  fatalities  than  thermal 
injuries 

•  inadequate  tie-down  of -transmission  and  rotor  mast  was  the 
most  severe  structural  weakness 

•  the  most  severe  design  weakness  was  the  absence  of  suitable  ' 
restraint  harness  or  troop  compartment  doors  to  prevent  ejec¬ 
tion  of  occupants 

•  rollover  and  sideward  type  impact  is  a  significant  cause  of 
occupant  injury 

e  there  is  a  lack  of  detailed  specifications  that  has  hindered 
crashworthiness  design 

The  paper  presents  recommendations  regarding  crash  environment,  structural 
leads,  and  design  concepts. 

26.  Smith,  H.  G.,  and  McDermott,  J.  M.,  DESIGNING  FOR  CRASHWORTHINESS  AND 
SURVIVABILITY,  Hughes  Tool  Co.,  American  Helicopter  Society  Proceed¬ 
ings,  November  1966. 

Tills  paper  discusses  the  prospects  of  intentionally  designing  for  heli¬ 
copter  crashworthiness  and  survivability.  Rotoxywwing  aircraft  damage 
photographs  are  related  to  crash  survivability  design.  The  paper  discusses 
the  crash  design  survivability  indices  and  human  tolerance  levels.  Load 
factor  versus  deformation  for  equal  crash  energy  absorption  is  compared, 
and  the  desirability  of  large  deformation  and  correspondingly  low  load 
factors  is  explained.  Several  of  the  pertinent  factors  in  designing  for 
vertical  impacts  are  presented.  Present  design  practice  is  stated  and 
future  design  objectives  are  presented. 
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27.  Thompson,  A.  B.,  A  PROPOSED  NEN  CONCEPT  FOR  ESTIMATING  THE  LIMIT  OF 
HUMAN  TOLERANCE  TO  IMPACT  ACCELERATION,  Aerospace  Medical  Journal, 
Vol.  33,  No.  11,  November  1962. 

This  article  suggests  that  although  mathematical  techniques  are  being 
developed  to  determine  human  whole-body  response  to  various  impact 
accelerations,  no  satisfactory  method  is  available  for  defining  the  human 
tolerance  limit  to  impact  loads  resulting  from  abrupt  accelerations. 

Limits  set  by  total  G  vs.  time,  rate  of  onset,  and  velocity  change  are 
ill-defined  and  variable.  A  concept  is  proposed  whereby  limits  are  set 
by  the  force  exerted  per  unit  area  on  the  body  by  the  restraint  or  support 
system  at  maximum  deceleration.  Correlation  is  made  between  blast  toler¬ 
ance,  sled  test  tolerance,  and  automobile  accident  and  fall  Impact  sur¬ 
vivals,  which  indicates  that  28  to  32  pounds  per  square  inch  is  the  on¬ 
set  level  for  shock  and  k5  to  55  pounds  per  square  inch  is  the  level  for 
50  percent  mortality  for  transverse  accelerations  of  less  than  0.07  sec¬ 
ond  duration.  In  this  concept,  G,  rate  of  onset,  and  duration  time  are 
all  dependent  variables,  while  impact  force  per  unit  area,  delta  velocity- 
change,  and  Impact  pulse  time  define  the  tolerance  envelope. 

28.  MIL  S-97^->  A  GENERAL  SPECIFICATION  FOR  AIRCRAFT  UWARD  EJECTION 
SEAT  SYSTEM,  Amended  December  1969. 

The  following  sections  pertaining  to  crash  loads  are  excerpted  from  the 
specifications: 

"3.6.2. 6  Crash  loads 

"3* 6. 2. 6. 1.1  Forward  crash  loads.  The  restraint  subsystem  and  ejection 
seat  installation  shall'  Ve  capable  of  withstanding  the  following  leads. 

"3. 6. 2, 6. 1.2  Seat  Installation.  The  ejection  seat  installation  shall 
withstand  a  load~ofToG~uitimate  applied  in  a  forward  direction  through 
the  seat  structure  to  the  seat  attachment.  The  load  shall  be  applied 
through  the  center  of  gravity  of  the  seat/man  combination,  and  the 
seat  shall,  be  in  the  most  structurally  critical  position  of  adjustment 
during  the  load  application.  (One  "g"  equals  215  pounds  plus  the  weight 
of  the  entire  ejection  seat  system.) 

"3* 6. 2. 6. 2  Side  crash  loads ,  The  restraint  subsystem  and  ejection  seat 
installation  shall  wltlostana'the  loads  specified  in  3. 6. 2. 6.1  applied  in 
a  direction  of  20°  to  either  side  of  the  forward  direction. 

"3.6. 2. 6, 3  Vertical  crash  loads.  The  restraint  subsystem  and  ejection 
seat  installation  shall  fcc  capable  of  withstanding  the  following  loads: 

"e.  Restraint  subsystem  -  A  lead  of  1,750  pounds  ultimate  applied  to 
the  restraint  subaystem  in  a  vertical  upward  direction  and  through 


the  center  of  gravity  of  the  occupant.  The  seat  shall  he  in  the  most 
structurally  critical  position  during  the  load  application. 

"b.  Seat  bucket  -  A  load  of  4,300  pounds  ultimate  applied  downward  per¬ 
pendicular  to  the  seat  bucket  bottom  and  through  the  center  of  gravity 
of  the  seat  occupant.  The  load  shall  be  distributed  over  the  seat 
bucket  bottom.  The  seat  shall  be  adjusted  to  the  upper  limit  of 
vertical  adjustment  during  the  load  application. 

"c.  Seat  installation  -  A  load  of  2QG  ultimate  applied  in  a  vertical 
downward  direction  perpendicular  to  end  uniformly  distributed  over 
the  seat  bucket.-  (one  G  equals  215  pounds  plus  weight  of  the  entire  . 
ejection  seat  system.) 

"3. 6. 2. 6. 4  Back  crash  loads.  The  ejection  seat  shall  be  capable  of  with¬ 
standing  a  load  of  1,500  pounds  ultimate  (1,000  pounds- proof )  distributed 
thereon  below  the  headrest.  The  seat  shall  be  adjusted  to  the  most  struc¬ 
turally  critical  vertical  adjustment  position  for  the  application  of  this 
load." 

29.  MIL 'T-27422B  AIRCRAFT  CRASH  RESISTANT  FUEL  TANK  MILITARY  SPECIFICA¬ 
TION,  Amended  February  1970. 

Paragraph  4. 6. 6. 2  applies  to  crash  impact  design  and  reads  as  follows: 

"The  No.  2  test  cube  with  cover  plate  attached  to  the  fitting  and  filled 
with  770  pounds  of  water  (no  air  in  the  cube)  and  held  loosely  with  a 
sling  made  of  webbing  in  accordance  with  Figure  9  shall  be  lifted  to  a 
height  of  65  feet,  measured  from  the  bottom  of  the  cube.  With  the  bottom 
of  the  cube  in  a  horizontal  poslti^u,  the  release  mechanism  shall  be  act¬ 
uated  and  the  cube  allowed  to  drop  freely  on  a  nondeforming  surface.  Any 
rupture  resulting  in  spillage  shall  constitute  failure." 

30.  MIL  S-8698,  HELICOPTER  STRUCTURAL  DESIGN  REQUIREMENTS  MILITARY 
SPECIFICATION,  July  1954. 

Paragraph  3*4.7  applies  to  design  for  crash  loads  and  reads  as  follows: 

"Sufficient  strength  shall  be  provided  in  the  seat  installation  and  attach¬ 
ments  of  engines,  transmissions,  equipment,  and  useful  load  items  (includ¬ 
ing  fuel  tanks  one-half  full)  and  their  carry-through  structure  to  prevent 
failure  of  such  attachments  which  would  result  in  injury  to  personnel.  The 
ultimate  inertia-load  factors  shall  be  those  specified  by  the  procuring 
activity." 

51.  MTL  S-58095,  GENERAL  MILITARY  SPECIFICATION  FOR  AIRCREW  NON  EJECTION 
CRASHWORTHY  SEAT  SYSTEM,  August  1971. 
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This  specification  describes  a  95th  percentile  potentially  survivabie 
accident  which  Specifies  the  time  period,  peak  G  values,  and  velocity 
change  for  a  triangular  pulse  shape.  The  pulse  parameters  are  obtained 
from  USAAVLABS  Technical  Report  70-22.  The  specifications  consider 
designing  for  human  tolerance  to  vertical  accelerations.  The  specifica¬ 
tion  describee  the  seat  system  requirements  necessary  to  provide  occupant 
protection  and  survival  in  aircraft  accidents. 

* 

Longitudinal,  lateral,  and  upward  seat  structural  strength  and  deforma¬ 
tion  requirements  stated  are  based  on  the  95th  percentile  clothes  occup- 
y  ant  weight  plus  the  weight  of  the  seat  and  any  equipment  attached  to  or 

carried  by  the  seat.  Downward  seat  structural  strength  arid  deformation 
requirements  are  based  on  the  effective  weight  of  the  50th  percentile 
clothed  occupant  plus  the  weight  of  that  portion  of  the  seat  which  must 
stroke  during  vertical  crash  force  attenuation. 

32.  Haley,  J.,  PRELIMINARY  DRAFT,  COST  EFFECTIVENESS  OF  CRASHWORTHY 
STRUCTURAL  FEATURES  IN  A  9 -13  PLACE  HELICOPTER,  USAAAYS,  TN  72-1, 

U.S.  Array  Agency  for  Aviation  Safety,  Ft.  Rucker,  Ala. 

This  report  discusses  the  results  of  a  cost-effectiveness  study  of  crash¬ 
worthy  structural  features  for  a  9-13  place  helicopter.  The  study  takes 
into  consideration  the  following: 

•  accident  history  of  the  UH-1 

•  cost  to  the  government  of  personnel  injuries  and  fatalities 

•  savings  potential  on  aircraft  damage  repair  and  replacement  costs 

•  increased  operating  costs  as  a  result  of  increased  empty  weight 

The  preliminary  draft  concludes  that  the  crashworthy  features  intended  for 
the  UTTAS  will  be  cost  effective  in  5-**  years  on  the  basis  of  (1)  an  esti¬ 
mated  initial  cost  increase  of  $15,000  per  aircraft  and  (2)  an  accident 
rate  equal  to  half  that  of  the  UH-1  series  in  FY  69. 
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DESCRIPTION  OF  STAGS  ( STRUCTURAL  ANALYSIS  OF  GENERAL  SHELLS  )PROGRAM 


STAGS  is  a  computer  program  developed  to  analyse  the  behavior  of  general 
shells  under  arbitrary  static  thermal  and  mechanical  loading.  Nonlinearities 
caused  by  material  behavior  and  finite  deformations  are  accounted  for*  The 
STAGS  analysis  is  based  on  an  energy  formulation.’  Derivatives  which  appear 
in  the  energy  expression  are  replaced  by  their  two-dimensional  finite  dif¬ 
ference  approximations.  Minimization  of  the  energy  results  in  a  system  of 
nonlinear  algebraic  equations  which  are  solved  by  use  of  a  modified  Nevton- 
Raphscn  method. 

The  computer  program  STAGS  (structural  Analysis  of  General  Shells)  performs 
a  nonlinear  analysis  of  shells  by  use  of  a  two-dimensional  finite  differ¬ 
ence  approach.  Displacement  and  stress  histories  are  computed  correspond¬ 
ing  to  a  given  history  of  applied  load,  displacement,  or  temperature.  Two 
versions  of  STAGS  are  described  in  this  report.  The  first  version  pro¬ 
vides  an  elastic  nonlinear  collapse  analysis.  In  addition  to  the  beoie  non¬ 
linear  branch,  there  are  two  special  branches:  the  first  is  for  linear 
analysis,  and  the  second  is  for  buckling  analysis  based  on  the  classical 
bifurcation  approach  with  a  linear  prebuckling  analysis.  Collapse  loads 
are  found  as  limit  points  in  the  nonlinear  load  displacement  curve*  The 
program  is  useful  for  postbuckling  analysis  of  shells  which  behave  accord¬ 
ing  to  classical  buckling  theory  and  for  studies  of  the  influence  of  im¬ 
perfections. 


STAGS  applies  to  any  shell  for  which  a  reference  surface  and  a  suitable 
set  of  grid  lines  can  be  mathematically  defined.  In  general,  the  user  of 
the  program  provides  a  subroutine  describing  the  geometry,  but  several 
such  routines  for  standard  geometries  are  permanently  included  in  the  pro¬ 
gram.  For  the  elastic  version,  the  shell  wall  thickness  can  be  varied* 
and  elastic  properties  are  allowed  to  vary  with  the  shell  coordinates  and 
through  the  thickness.  Cutouts  in  the  shell  wall  end  discrete  eccentric 
stiffeners  are  included.  The  program  is  also  general  relative  to  boundary 
conditions  and  to  loading.  The  loading  can  be  applied  in  terms  of  vari¬ 
able  surface  tractions,  point  forces,  or  line  loads.  Displacements,  such 
as  uniform  end  shortening  of  a  cylindrical  shell,  can  be  applied  if  de¬ 
sired  rather  than  fixed  loading,  and  provision  is  made  for  thermal  loading. 


Stiffeners  and  cutout  edges  must  follow  coordinate  lines,  or  rather  the 
coordinate  lines  must  be  chosen  so  that  they  follow  boundaries,  internal 
or  external,  and  the  direction  of  internal  stiffeners.  This  is  not  a 
severe  program  limitation  because  the  capability  of  handling  nonorthogonal 
grids  has  been  included.  However,  analysis  of  more  complicated  shells 
will  require  some  user  skill. 

On  each  of  the  boundaries,  the  input  parameters  can  be  used  to  specify 
restraint  on  either  of  the  three  displacement  components  or  on  the  rota¬ 
tion  about  the  tangent  to  the  edge.  If  displacement  restraint  is  not 
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specified  for  one  or  more  of  these  qualities,  the  analysis  will  be  based 
on  appropriate  natural  boundary  conditions  (stress  free).  If  more  compli¬ 
cated  boundary  conditions  are  used,  it  will  be  necessary  to  modify  the  pro¬ 
gram  in  an  area  which  is  not  easily  accessible  to  the  user.  However,  dis¬ 
placement  restraints  off  the  boundary  lines  can  be  introduced  by  using 
specified  displacement  in  the  load  routine.  '' 

Two  items  are  of  special  importance  relative  to  the  problem  of  computer 
run  time.  One  is  the  transformation  of  the  structure  into  a  model  which 
is  suitable  for  analysis;  the  other  is  the  choice  of  strategy  in  the  non¬ 
linear  analysis.  Often,  it  is  impossible  to  model  the  structure  in  a 
straightforward  manner,  and  considerable  engineering  skill  may  be  needed. 
Eventually  a  few  different  models  must  be  analyzed,  all  reflecting  differ¬ 
ent  types  of  local  behavior.  Hie  strategy  in  the  analysis  involves  choice 
of  such  items  as  step  size  and  convergence  criterion;  it  also  involves  the 
use  of  initial  imperfections  and  the  use  of  the  results  from  the  applica¬ 
tion  of 'the  bifurcation  analysis.  The  choice  of  a  proper  strategy  is  very 
important  for'  computer  economy. 

The  basic  problem  dimensions  (number  of  nodal  points  in  each  direction)  are 
restricted  only  by  the  availability  of  mass  storage.  Some  program  limita¬ 
tions  are  imposed  by  dimension  statements c  In  each  direction,  there  can 
be. as  many  as  80  stiffeners  but  only  of  20  different  types.  The  number  of 
points  for  integration  through  the  thickness  must  be  an  odd  number,  and  it 
may  not  exceed  9*  In  the  plasticity  analysis,  as  many  as  10  material  com¬ 
ponents  may  be  used. 

A  comprehensive  description  of  STAGS  can  be  found  in  Reference  42. 
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MATHEMATICAL  MODEL  DESCRIPTION 


PROGRAM  KRASH 


Program  KRASH  was  developed  during  Phase  II  of  the  study  described  here¬ 
in.  Program  KRASH  computes  the  time  history  response  of  N  arbitrarily 
interconnected  lumped  masses.  Each  mass' is  allowed  six  degrees  of  freedom 
defined  by  inertial  coordinates  x.,,  y^,  zi  and  Eulerian  angles  p>^, 

i,  i  *  1,2, . . .N.  Euler's  equations  of  motion  ere  written  for  each  mass. 
The  equations  of  motion  are  integrated  numerically  to  obtain  velocities 
and  displacements  and  rotations.  Angular  momentum  terms  due  to  rotor 
angular  velocity  are  included  in  the  equations  of  motion. 

The  following  loads  (forces  and  moments)  act  on  each  lumped  mass; 

1.  Gravity  forces 

2.  Aerodynamic  forces 

3*  Internal  forces  and  moments 
k.  External  forces  and  moments 


The  gravity  forces  are  self-explanatory.  The  aerodynamic  forces  consist 
of  the  simple  lift  force  on  each  mass  held  constant  throughout  the  run. 
This  lift  force  is  computed  for  each  mass  as  an  input  fraction  of  the 
total  vehicle  weight. 

The  internal  forces  and  moments  result  from  the  deformation  of  structural 
members,  termed  "beams",  which  interconnect  the  various  lumped  masses. 

The  degree  of  interconnectivity,  i.e.,  which  of  the  N  masses  are  inter¬ 
connected,  is  specified  in  the  input.  Each  beam's  properties  are  speci)- 
fied  in  terms  of  a  6  x  6  linear  stiffness  matrix  relating  the  forces  and 
moments  at  mass  j  to  the  relative  deflections  and  rotations  of  mass  j 
vith  respect  to  mass  i. 

The  actual  internal  forces  are  computed  on  an  incremental  basis.  Each 
increment  is  just  the  incremental  linear  force  determined  from  the  stiff¬ 
ness  matrix,  times  the  incremental  deflection,  multiplied  by  a  stiffness 
reduction  factor  KR.  For  each  beam  element  there  are  six  different  KR’s, 
one  for  each  relative  deflection.  For  a  given  relative  deflection,  say, 
axial  deflection,  the  corresponding  KR  applies  to  all  six  possible  loads 
due  to  this  deflection.  Each  KR  is  input  os  a  tabular  function  of  the 
corresponding  deflection.  For  small  deflections,  KR  ■  1,  so  that  s 
linear  analysis  is  obtained^  for  larger  deflections,  KR  /  1,  so  that 
general  plastic  deformations  are  allowed.  Since  the  forces  are  computed 
incrementally,  KR  is  simply  the  slope  of  the  appropriate  load-stroke  curve 


The  structural  element  is  assumed  to  "behave  the  same  under  the  influence 
of  positive  and  negative  loads. 

In  addition  to  the  above,  the  internal  load  computation  is  written  such 
that  unloading  and  subsequent  reloading  occur  along  a  linear  elastic 
line.  Once  any  of  the  six  deflections  exceeds  an  input  value,  the  member 
is  assumed  to  have  failed  completely  (fracture)  and  the  interconnecting 
forces  are  set  to  zero  for  the  remainder  of  the  run.  Linear  (viscous) 
damping  is  included  in  the  calculation  of  the  internal  loads. 

The  external  forces  result  from  the  crushing  of  structure  which  it  external 
to  the  lumped  masses.  Each  lumped  mass  is  allowed  to  have  as  many  as  three 
mutually  perpendicular  "springs"  which  radiate  outward  from  the  mass. 
Obviously,  only  those  masses  on  the  exterior  of  the  vehicle  will  utilise 
these  springs.  When  any  spring -contacts  the  ground,  an  axial  spring 
compression  load  is  calculated  from  an  input  table  of  spring  axial  load 
versus  axial  compression. 

This  table  can  be  input  in  any  form  to  allow  for  general  elastic-plastic 
deformation.  Unloading  (extending)  and  reloading  follow  an  elastic  line 
whose  stiffness  is  input,  so  that  energy  is  absorbed  in  permanent  deforma¬ 
tion.  In  addition,  beyond  an  input  maximum  deflection,  further  loading¬ 
unloading  proceeds  along  a  ateep  elastic  line  (input  constant).  This  i* 
to  represent  the  finite  crushing  distance  available,  beyond  which  the 
stiffness  increases  drastically.  The  external  springs  do  not  develop 
tensile  leads,  and  they  do  not  fracture  as  do  the  internal :  "beams" . 

A  ground  drag  load  is  computed  at  the  ground  contact  point  for  each  spring. 
This  load  is  just  a  constant  input  friction  coefficient  times  the  norsasl 
component  of  the  axial  spring  load.  The  direction  of  the  drag  load  is 
opposite  to  the  velocity  vector  of  the  contact  point.  The  contact  surface 
(ground)  is  assumed  to  be  flat  and  rigid. 

Program  KRASH  has  a  built-in  routine  which  will  determine  when  an  identified 
mass  penetrates  a  defined  occupiable  volume.  In  addition,  the  program  will 
obtain  the  Dynamic  Response  Index  (DRl)  for  desired  personnel  locations. 
Program  KRASH  uses  a  modified  predictor-corrector  integration  routine  and 
includes  an  initial  condition  subroutine  which  provides  for  a  balanced 
vehicle  at  the  start  of  the  analysis. 


THEORY 


Mathematical  Model  of  Helicopter 


The  helicopter  is  modeled  as  a  series  of  interconnected  lumped  masses* 

Bach  mss  is  allowed  six  degrees  of  freedom,  three  translations,  and  three 
rotations.  The  masses  are  connected  internally  "by  nonlinear  beam  elements. 
Each  mass  is  allowed  up  to  three  external  nonlinear  "springs'*,  which 
radiate  outward  from  the  mass  and  contact  the  ground,  providing  external 
crash  forces.  The  helicopter  model  is  shown  in 'Figure  1.  . 


mj,  aj  and  %  are  three  lumped  masses,  interconnected  by  beams  ij  and  ik. 
Three  external  springs  are  shown  radiating  .outward  from  %.  The  end 
points  of  these  springs  are  denoted  by  ‘C**,  Cy^  and  C^.  The  center-of - 
gravlty  of  the  entire  helicopter  is  denoted  by  G.  {In  general,  there  will 
be  no  lumped  mass  exactly  at  G.) 

Coordinate  Systems 

Definition  of  Coordinate  Systems  ■  / 

.  *  **  v 

1«  Ground  Coordinate  System  (pw  y  *)•:  This  is  a  right-handed  coordi- 
ttiET systea  -fiiad  in'ife*  grooad  with  origin  at  point  0  in  Figure  1. 
The  x  axis  is  positive  forward,  the  f  axis  positive  to  the  right,  and 
the  z  axis  positive  downward.  The  xy  plans  (a  *  6)  eorreapaoda 
to  the  ground  surface.  .The  ground  coordinate  syatam  ia  esmsidered 
an  inertial  coordinate  system  for  writing  the  dynamic  equations  of 
motion. 

2.  Helicopter  Coordinate  System  (H»xH.yn*  x")*  T*lis  *•  *  left-handed 
coordinate  system  fixed  In  the  helicopter  with  origin  at  point  H  in 
Figure  1.  The  x"  axis  is  positive  aft,  y"  is  positive  left,  and  z" 
is  positive  upward.  The  origin,  point  H,  corresponds  to  F.S.O., 
B.L.O,  W.L.O.  This  coordinate  system  is  used  only  to  input  the 
coordinate*  of  the  lumped  mass  points,  slnee  the  coordinates  of 
the  points  are  usually  available  in  terms  of  F.S.,  B.L.  and  W.L. 

3.  Center-of -Gravity  Coordinate  System  (Gtx*ty»fS»).  This  is  a  right- 
handed  system  fixed  in  the  helicopter  witn  tnc  origin  at  the  c.g. 
of  the  helicopter  (Point  G).  The  xe  axis  is  positive  forward, 

y‘  positive  right,  and  z‘  positive  downward.  These  axes  are  para¬ 
llel  to  the  Kg",  y«,  git  axes . 

4.  Body  Coordinate  3ystem  (m^x^  y^s*  )•  Each  lumped  mass  has  its 

right-handed  coordinate  systea  fixed  in  the  mass.  The  orientation 
of  each  of  these  coordinate  systems  Is  arbitrary,  and  it  is  spec¬ 
ified  by  means  of  three  input  Euler  angles  for  each  mass,  relating 
its  orientation  to  the  center-of -gravity  coordinate  system. 


LOCKHteO 


25 


Normally  the  body  coordinate  -system  is  taken  parallel  to  the  center- 
of-gravity  coordinate  system  (and  hence,  the  three  input  Euler  angles 
are  set  «  0),  since  the  inertia  data  is  generally  available  about 
these  axes.  The  body  coordinate  system  ia  the  system  u'sed  in  writing 
1  Euler’s  equations  of  motion  for  each  lumped  mass  m^. 

5.  Beam  Coordinate  System  (m^xb^yb^zb^  ).  This  is  a  right-handed 

coordinate  system  fixed  in  mass  mi,  with  its  origin  at  e*.  The  xbjj 
is  along  a  straight  line  from  mi  to  mj,  with  the  helicopter  in.  its 
original  undeformed  configuration.  As  the  helicopter  deforms,  this 
coordinate  system  remains  fixed  in  mass  m^,  so  that  xb^  will  no 
longer  point  to  mj.  The  direction  of  ybjj  and  zb-y  (they  are  mutu¬ 
ally  perpendicular)  is  arbitrary  end  is  input  to  the  program.  Each 
beam  ij  has  a  bee.j  coordinate  system,  used  to  compute  the  beam 
forces  and  moments. 

Relations  Between  Coordinate  Systems 


Any  quantity  vhich  can  be  expressed  as  a  vector  in  one  coordinate  system 
(forces,  moments,  displacements,  velocities,  accelerations,  but  not  large 
rotations)  can  be,  likewise,  specified  in  another  coordinate  ayBtem  by 
use  of  an  Eulerian  transformation  matrix  relating  the  two  coordinate  systems. 
.Thus,  for  example,  if  we  have  a  force  vector  at  expressed  in  itB  body 
axes  components  as  (X.  Y.  Z. )  this  can  be  expressed  in  ground  axes  as 

simply 


vhere  X  ..  Y  Z  .  are  the  ground  axes  components  of  the  force  vector 
|  oi-’  oi'  oi) 

and  jAij  is  a  3  x  3  Eulerian  transformation  matrix.  The  form  of  JA.^  J 

depends  on  the  sequence  in  which  rotations  from  one  axis  system  to  the 
other  are  performed.  In  this  program,  the  following  sequence  is  employed: 

1.  Starting  with  the  0,x?y,z  coordinate  system,  perform  a  clock¬ 
wise  (right-hand  rule)  rotation  about  the  02  axis,  through 

an  angle  ^ . 

2.  Next,  perform  a  clockwise  rotation  about  the  new  0y  axis, 
through  an  angle  6^. 
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3*  Finally,  perform  a  clockwise  rotation  about  the  final  0  axis, 
through  an  angle  x 

The  resulting  transformation  matrix  is  then  inverted  to  obtain  a  transfor¬ 
mation  from  body  axes  to  ground  axes.  The  resulting  transformation  matrix 
is  given  by 

cos9i  cos^-cos^  SIN^  +SIN$i  SIN^  COS^  SIN^SIN^+COS^SINej^COe^" 
Ai»  cose^^  SIK^j  COSf^  COS^  4-SIN^  SIN0i  Sm^Tjj-SIN^COS^+COe^SINe^IN^ 


!  -SIN0 


SIN^  CO60j 


cos^  cos^ 


Similar  transformation  matrices  are  formed  to  relate  various  other  coordin¬ 
ate  system*.  These  are  summarised  in  Table  II. 

I  TABLE  II.  TRANSFORMATION  MATRICES 


Matrix 

Transforms  From 

To 

Using  Angles 

Angles 
Constant  or 
Varying 

M 

ith  body  axes 

ground  axes 

* i *  V  *  i 

varying 

M 

bean  ij  axes 

ith  body  axes 

9jj’  *  ij 

constant 

K! 

ith  body  axes 

! 

c.g,  axes 

,  *  1 

constant 

M 

c.g.  axes 

ground  axes 

l 

e’,  1 

! 

constant 

All  the  above  matrices  utilise  equation  (1)  with  the  appropriate  angles 
from  the  above  table.  JA"j andfA’]  are  used  only  in  initial  conditions 
determination,  so  that  tfieir  Euler  angles  are  indicated  as  constant. 


. ■,  jgynv.. 


**  '  '  ,  '  ,?<}.  .A  'tf'-**'  ‘ 

7*'fi  '.V^«,.M"*'  *  f  ‘  ’ 
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These  "constants"  are  really  the  tine  xero  value*  of  the  angle#  which  Set- 
ually  vary  but  are  not  used  in  the  time  history  computation#.  f>} ,  0', 
are  input  constant#  defining  the  initial  attitude  of  the  overall  vehicle. 
The  [A. J matrices  are  constant  since,  as  mentioned  above,  the  ij  beam 
axes  are' fixed  in  the  ith  body  axes.  Hence,  the ’only  tine  varying  Euler 
angles  are  (>  ,  9^  and  in  the  JaJ  matrices.'  These  obviously  are  the 

three  rotational  degrees-of-freedcm  of  the  ith  lumped  mass. 

We  also  will  require  the  time  derivative  of  the  !a.|  matrix,  denoted  |Aj 
It  can  be  shown  that  this  is  given  by  poatmultipiylng  jA.lby  a  matrix 
so  that  1  11 


(2) 


N 


a 

r^~' 

N  . 

where  j  is  given  by 

1 

0 

^sin^  -  ^cos^cps^ 

•  e 

-djSin^  +  ^cos^cot*! 

0 

•  * 

-djCosSS^  -  ^sin^cosdj, 

** 

K  - 

•  • 

®jCOs0^  .+  ^ 3in0^  cosd 

* 

•h +  V^i 

0 

(3) 


Sign  Conventions 


The  basic  sign  convention  used  for  all  displacements,  rotations,  velocities, 
accelerations,  forces  and  moments  is  that  all  quantities  nre  positive  in 
the  positive  direction  of  the  axes' shown  in  Figure  1.  Rotation  and  moments 
utilise  a  right-hand  rule  to  define  the  positive  direction.  The  few  excep¬ 
tions  to  this  rule  are  indicated  in  the  theoretical  development. 

Forces  Acting  on  Each  Maas 

The  following  forces  and  moments  act  on  each  lumped  mass: 

1.  Gravity  forces 

2.  Aerodynamic  forces 

3.  Internal  forces  and  moments 
h.  External  forceo  and  moments 
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5.  Lamping  forces  and  moments  (internal) 

All  forces  and  moments  are  positive  when  they  act  in  the  positive  direction 

of  the  m.  x.  y.  z.  sxes. 

*»  i 

Gravity  Forces  (X„  ,  Y_  ,  arid  Z_  ) 

V  Gi  ^i 


The  gravity  force  for  the  ith  lumped  mass  is  evidently  Just  the 
weight  w  acting  along  the  ground  fixed  0  axis.  Transforming  this 
force  into  body  axes  gives  the  gravity  forces  as 


where  AJ~  indicates  the  transpose  of (a. 1  .  Note  that  the  transpose 
rather  titan  the  inverse  is  used,  since  rdr  rotation  transformation 
matrices  the  two  are  equal. 

* 

Aerodynamic  Forces  (X.  .  Y.  ,  and  Z.  ) 

_ t.,  i. . X 

The  only  aerodynamic  forces  considered  are  a  constant  lift  force,  in 
ground  axes,  positive  upward,  acting  on  each  lumped  mass.  This  lift 
force  is  expressed  as  a  constant  fraction  of  the  total  vehicle  weight, 
times  the  vehicle  weight: 


LIFT. 


“  1ciWTOT 


-here 


V. 


TOT 


N 

Ew, 

i « i 


(5) 


(6) 


snd  N  is  the  total  number  of  lumped  masses.  Transforming  this  lift 
into  ith  body  axes  gives  the  desired  aerodynamic  forces  as 
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1  )  y  ^  | 

vhers  the  minus  sign  is  necessary  because  the  lift  is  positive  up¬ 
ward  (in  the  negative  direction  of  the  0  ground  axis.) 

z 

Inputting  all  lc,  *  0  gives  a  zero  lift  case,  generally  the  most 
common.  If  a  100$  lift  case  is  desired,  and  it  is  assumed  that  all 
the  lift  is  from  the  rotor,  then  input  lci  *  1  for  the  ith  mass 
corresponding  to  the  rotor.  1 


Internal  Forces  and  Moments 


sts  (X  ,  Y  ,  ZL  ,  ,  and  Ny  ) 

i  xi  Ai  J'i  xi 


These  forces  and  moments  result  from  the  deformations  of  the  inter¬ 
connecting  beams  as  the  lumped  masses  move.  First,  for  beam  ij,  the 
deflections  and  rotations  of  point  J  with  respect  to  point  i  are  com¬ 
puted  in  beam  ij  axes.  These  are  then  used  to  calculate  the  three 
forces  and  three  momenta  at  point  j,  utilizing  a  6x6  stiffness 
matrix  relating  the  loads  to  the  deformations.  Nonlinear  effects 
are  also  included  in  computing  the  loads.  The  loads  at  point  j  in 
beam  axes  are  then  transformed  into  ground  sxec,  and  the  loads  at 
point  i  in  ground  sixes  are  computed  from  static  equilibrium  equa¬ 
tions  (the  beans  are  assumed  massless).  Then  the  loads  at  X  and. 
j  are  transformed  into  ith  and  jth  mass  body  axes,  respectively. 
Finally,  for  each  mess  the  contributions  from  the  various  beams 
that  attach  to  that  mass  are  summed  to  obtain  the  total  internal 
force  for  the  mass.  All  the  internal  force  calculations  are  per¬ 
formed  on  an  incremental  basis,  i.e.,  incremental  deflections  are 
used  to  compute  incremental  forces,  since  a  tangent  modulus  is 
utilized  for  computing  nonlinear  effects. 

1.  ^eam  Deformations  -  This  section  calculates  the  deflections  and 
rotations  of  point  j  with  respect  to  point  i,  for  beam  ij,  in 
beara  i.J  axes.  First,  the  incremental  deflections  of  point  j  with 
respect  tc  point  1,  in  ground  axes,  are  clearly  given  by 
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and 


are  the  incremental  displacements  of  points  i  and  j, 


from  one  time  interval  to  the  next,,  obtained  by  numerical  integra¬ 
tion  of  the  velocities.  The  running  time  sums  of  these  quantities 
give  the  total  coordinate  positions,  x^  >  >  zi  : 


+  Ax^ 


+  Ayi 


/  i  ~/zi 

C  current  C previous 
value  value 


i  -  1,  *,...,N  (9) 


xi*  yi>  zi  are  the  thrRe  translational  degrees  of  freedom  of  mass  i. 
Referring  to  Figure  1,  they  give  the  position  of  the  ith  mass  in  the 
ground  (°x,y,z)  coordinate  system.  Similarly,  the  three  Euler  angles 
J&i,  0^  mentioned  earlier  ere  the  three  rotational  degrees  of 

freedom  of  mass  i.  Since  incremental  values  of  these  are  alsp  used, 
ve  have 

(±  • 


9, 
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C  curr 


current 

value 


9i  *  A6i 

/*!  + 

C previous 
value 


i  •  1,8,,.. ,N  (10) 


Figure  2  illustrates  beam  ij  in  two  positions,  at  time  t  and  time 
t  +  At,  where  At  is  the  numerical  integration  time  interval.  Mass 
i  is  shown  as  not  moving  during  At,  which  is  done  only  to  clarify 
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the  figure.  Ma*s  j  moves  from  to  during  the  At  time  inter¬ 

val.  Thi*  motion  can  be  viewed  as  reaulting  from  two  vector  motions. 


a$2l  «  STry  ■  +  3$b 
id  id  id 


(11) 


Svd  is  clearly  given  by  equation  (8)  in  ground  axes,  i.e., 

id 


AX 


AVd 
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AZ 
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(12) 


Hie  first  component  of  At^j,  Avr^  is  the  deflection  of  point  j  due 
solely  to  rotation  of  mass  during  At.  In  Figure  2,  the  coordinate 
axis  (xb^j)  is  shown  rotating  clockwise  to  its  new  position,  due  to 


Figure  2.  Beam  Deflections. 
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This  motion  alone  moves  point  m  .  over  to  point  P  in  Figure  2. 


However,  this  motion  alone  would  induce  no  loading  in  beam  ij. 
The  fact  that  point  j  actually  moves  to  m,.  .  causes  the  beam 

loads.  Thus,  it  is  clearly  the  vector  2v&.'  that  gives  the 

incremental  beam  deformations  that  cause  incremental  beam  loads. 

Solving  equation  ( 11 )  for  the  desired  deflections  Avt .  . : 

ij 


4vbi,i  *  -  Avru 


(13 


Avd^j  is  already  known,  in  ground  axes,  from  equation  (12). 


is  now  determined.  At  time  t,  a  vector  from  i  to  J  in 
ground  abces,  defined  as  '  jx^  .y^  .z^’ I  ,  is  "given  by 


where  the  subscript  t  denotes  at’.tirae  t.  This  same  vector  at 
time  t  +  At,  where  mass  i  has  now  .rotated  but^ the  vector  remains 
unchanged  in  inertial  space,  is  given  by 


where  |A  1  is  now  evaluated  with  the  new  rotated  angles. 
L  *1  t+At 

The  desired  Avr . ^  is  evidently  Ju9t  (15)  minus  (16), 


|h:  ■  ml, I 


Substituting  "previous”  for  values  at  t,  and  not  denoting  the 
values  at  t  +  At  (since  the  new  |A.J  is  evaluated!  before  these 
calculations),  we  have  >  L  j 


*  ■  (NU. '  Ml 


in  current  ith  mass  axes.  Rotating  into  beam  ij  axes,  we  obtain 


aou 
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Returning  to  equation  (13),  we  still  require  Avd,,,  in  beam  ij 
axes.  This  is  evidently  given  by  J 


Finally,  combining':  (19)  and  (20)  into  (13) *  we  obtain  the 
desired  AVb^  in  beam  ij  axes: 


(21) 


Equation  (21)  gives  the  three  incremental  beam  deflections  (point 
J  relative  to  point  i);  the  incremental  rotations  are  now 
derived.  The  incremental  rotations  of  point  J  relative  to  point 
i,  in  ith  mass  axes,  are  evidently  given  by 
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where  the  incremental  angles  on  the  right-hand  aide  of  the  equa¬ 
tion  are  the  Incremental  changes  in  the  integral  of  the  angular 
velocities  for  masses  i  and  j. 

This  equation  assumes  that  the  incremental  rotations  can  be 
treated  as  vectors,  which  is  true  only  for  small  angles.  How¬ 
ever,  since  At  for  the  numerical  integration  is  normally  chosen 
quite  small,  these  angles  are  sufficiently  small  to  treat  as 
vectors.  Transforming  (22)  into  beam  ij  axes,  we  obtain 


Equations  (21)  and  (23)  give  us  the  three  deflections  and  three 
rotations  of  point  J  with  respect  to  point  i,  in  beam  ij  axes. 
These  arc  now  utilized  to  compute  the  forces  and  moments  at  point 
a  due  to  these  deflections  and  rotations. 


Beam  Forces  and,  Moments  at  Point  j  -  The  forces  wad  moments  at 
point  in  been  ij' axee»' denoied  (k  *  x,y,zt<p,0tip), 

are  indicated  in  Figure  3.  Theae  are  the  loads  acting  on  the 
beam;  the  loads  acting  on  mass  J  are  equal  in  magnitude  and 
opposite  in  direction.  Positive  loads  acting  on  the  beam  at 
point  J  are  in  the  same  direction  as  the  six  relative  deflec- 
tions  (J  with  respect  to  i)  calculated  in  the  previous  section. 

The  incremental  loads  at  J  are  calculated  from  the  incremental 
deflections  utilising  a  6x6  stiffness  matrix  for  beam  ij. 

This  linear  relationship  is  then  modified  bjr  a  diagonal  stiff¬ 
ness  reduction  )  matrix,  resulting  in  the  following 
governing  equation  for  the  incremental  loads  at  point  j: 

Nl  ■  hNN  <2k) 

* , 

wfaer,  /  j  i»  nov  dsflncd  as  .  six-slenast  rector  as  follows: 


{4,M  ” 


The  elaments  of  |Avb^j  come  from  equations  (21)  and  (23)  from 

the  previous  section,  Koch  element  of  [XK^ ]  is  input  to  the 

urogram  ad  a  tabular  function  of  the  corresponding  elsausnt  of 
|iJr  ¥h,r*  jiJi  **  ^U#t  total  beam  deflection  given  by 

{’’’ii}  "  {viu}  *  {**«}  t2t 

currsot^  C^rarlous 

A  typical  input  table  is  shove  in  the  following  sketch: 


KR^jx  starts  out  at  1.0  for  small  deflections  xb^ j ,  corresponding 

to  a  linear  analysis.  Beyond  a  certain  limiting  deflection, 

KR.^  becomes  less  than  1.0,  representing  nonlinear  softening  of 

beam  ij  in  the  axial  (x)  direction.  Since  equation  (2k)  is 

written  on  an  incremental  basis,  each  increment  varies  according 

to  KRj ,  so  that  a  total  load  versus  total  deflection  curve  would 
■J*  J 

look  like  the  following: 


^ijx  =  0  *n  "tois  r^£e 


( Tabel 
x  Load) 


)  &Xb'  ■> 

—  cl 

KR«  ,  =  1.0  in  this  range 


xb^i  (Total  x  deflection) 


Obviously  the  total  loads  are  ju3t  the  time  sums  of  the  incre¬ 
ments!.  loads  in  ( 2k ) : 


current^  '-previous 


The  above  illustration  shows  the  x  load  varying  only  with  the  x 
deflection.  In  general,  equation  (2k)  shows  each  of  the  6  loads 
varying  with  all  6  deflections ,  via  the  6x6  JKj^J  linear  stiff¬ 
ness  matrix.  Thus,  ir.  general,  any  load  depends  on  all  6 
deflections  and  also  all  6  KR^  input  tables.  In  practice,  the 
stiffness  matrix  jk^J  would  seldom  be  fully  populated. 

In  addition  to  the  nonlinear  load  capability  just  described,  the 

program  also  allows  for  unloading  and  subsequent  reloading  to 

proceed  along  an  elastic  line.  This  is  illustrated  in  Figure  U. 

The  ordinate  FM. ...  is  the  total  (over  time)  kth  load  due  to  the 
iJKX 

lth  deflection  vb...  for  beam  ij .  Also  shown  .is  a  typical 
^  J I 

incremental  load  AFM. ..  ,  due  to  the  incremental  deflection 

lJxJL 

hvb.,,.  The  AFM.  ,  are  e  six  individual  terms  that  make  up 
ljl  ijkl 

each  in  equation  ( 2k ),  i.e.. 


KAIMI? J 


Thus,  for  example ,  Figure  4  could  represent  the  total  (over  time) 
y  force  due  to  \p  rotations  plotted  against  ^  rotation,  for  beam  ij. 

Loading  proceeds  along  the  solid  line  O-F-A.  Unloading  then  pro¬ 
ceeds  along  dashed  line  A-B,  parallel  to  the  original  linear 
loading  line  G-F.  Subsequent  reloading  then  proceeds  along  B-A, 
until  point  A  is  reached.  At  this  point,  further  loading  pro¬ 
ceeds  along  A-C.  At  point- C,  fracture  occurs  and -the  load  drops 
to  aero . 

Hote  that  if  unloading  occurs  along  the  original  elastic  portion 
of  the  curve  (0-F),  unloading  will  be  along  F-Q.  The  intent  of  this 
loading-unloading  model  is  to  represent  crushing  structure  with 
elastic  rebound. 

The  important  feature  represented,  here  is  the  energy  absorbed  by 
the  structure  in  a  loading-unloading -reloading  cycle  such  as  ' 
O-F-A-B-C .  It  is  felt  that  under  the  large  deformation  crash 
conditions  that  this  program  is  intended  to  investigate,  this 
energy  absorption  la  far  more  significant  than  the  snail  struc¬ 
tural  damping  generally  present. 

A  flow  diagram  for  the  calculation  of  the  loading-unloading 
forces  is  shown  in  Figure  5.  The  equation  for  AFM^jj^  is  just 
each  term  of  equation  (24);  the  summation  over  1  gives  the 
AF^  of  (24).  In  Figure  5,  if  %jja  ^  °»  then  the  sign  Avb^ 

is  cozqpared  to  the  sign  of  (vb^o  +  ^iji)*  !•*•»  the  sign  of  the 
current  incremental  deflection  is  compared  to  the  sign  of  the 
current  total  deflection.  If  these  are  equal,  then  loading  is 
occurring.  (This  may  he  in  either  the  upper  right  hand  or  lower 
left-hand  quadrants  in  Figure  4,  but  is  always  proceeding  away 
from  the  origin  0.)  Then  the  magnitude  of  the  total  deflection 
is  compared  to  the  magnitude  cf  vEjji.  This  is  the  deflection 
corresponding  to  point  A  of  Figure  4,  except  that  it  is  initially 
set  to  zero.  Therefore  the  center  path  termed  ,{LCADIflG'!  will  be 
followed  initially.  XR  is  read  from  an  input  table  and 
is  computed. 

When  point  A  of  Figure  4  is  reached  and  unloading  begi ns,  the 
sign  of  Avbij^  will  not  be  equal  to  the  sign  of  (vb^  +  Avb^,^). 
The  left-hand  branch  of  Figure  5  will  then  be  followed.  The  first 
time  through  this  branch,  vb^  is  set  equal  to  the  last,  vb.^, 

which  is  point  A  of  Figure  4.’  Then  XB  .is  set  equal  to  1  for  the 
unloading  and  AJ^j^i  is  computed.  As  long  as  unloading  proceeds, 
the  left-hand  branch  is  followed  and  KB  *  1. 


Subsequent  reloading  occurs  along  the  right-hand  branch;  the  sign- 
of  the  incremental  deflection  equals  the  sign  of  the  total  deflec¬ 
tion  and  the  magnitude  of  the  deflection  is  less  than  vb. .. .  This 

X  J  x 

corresponds  to  reloading  along  B-A  in  Figure  It.  For  this  situa¬ 
tion  KR  is  still  1.  Finally,  once  point  A  is  again  reached, 
further  loading  proceeds  along  the  original,  curve  A-C<  The 
center  branch  is  again  followed  since  jvb,  ^^Jvb^l »  is 

again  ^ead  from  the  input  table. 


Equation  ('2$),  updating  vb^,  follows  immediately  after  the 

coding  shown- in  Figure  5;  this  also  includes  a -test  for  fracture 
of  beam  ij.  •  Thus,  if  any  one  of  the  six  vb^  's  for  beam  ij  is 


greater'  in  magnitude  than  an  input  constant ,  v 


MAX 


,  beam  ij 


ijl 

fractures  and  its  internal  forces  are  set  to  zero  for  the 
remainder  of  the  run. 


Thus,  the  algorithm  shown  in  Figure  5  computes  .the  six  forces  and 
moments  at  point  j,  AF. in  beam  ij  axes,  according  to  the  sign 

ljiv. 

convention  in  Figure  3- 


3.  Internal  Forces  and  Moments  Acting  on  Mass  i  -  The  AF.^  just 
computed  are  transformed  into  ground  axes  as  follows: 


(“u  ) 

*  %  ■  ' 


(28a) 


where  the  superscript  o  refers  to  ground  axes  and  tfye  right-hand 
vector  is  made  up  of  the  first  three  elements,  of  AF.  Similarly, 
for  the  three  moments,  we  have  '  " 


(28b) 


Next,  a  static  balance  is  performed  on  the  beam  (since  the  beam 
is  assumed  massless,  it  has  no  inertia  forces)  to  obtain  the  loads 
at  point  i,  acting  on  the  beam,  in  ground  8xes.  These  are  denoted 
the  seme  as  those  at  J  except  with  a  bar.  Figure  6  shows  the 
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Figure  6.  Be  a*  Interne!  Load  Static 


positive  load*,  in  ground  axes,  at  1  and  j  acting  on  the  beak. 
xi3*  *ij  ftr*  ai®ply  the  current  distances  between  j  and  i 

In  ground  axes,  shown  in  Figure  61  These  are  given  by 
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1 

The  static  balance  equations,  from  Figure  6,  yield  simply 


-+  [*4«]<A*5 


The  matrix  [T^, ]  is  given  simply  by 


'V  * 


Finally,  these  loads  at  point  i  are  transformed  back  into  ith 
mass  axes ,  since  it  is  in  these  "axes  that  the  internal  forces 
are  desired  for  Euler's  equations  of t notion.  (They  were  trans 
formed  from  beam  to  ground  axes'  only  to  simplify  the  static 
balance  equations.)  Thus,  ve  have 
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*5 


(32b) 


The  Joads  acting  on  mass  j,  in  jth  mass  axes,  are  similarly 
obtained  from  the  loads  at  point  j  iacting  on  the  beam 
(equation  (28))  in  ground  axes,  by 


(33a) 


(33b) 


The  minus  sign  is  necessary  because  the  sense  of  the  loads  acting 
on  mass  j  is  opposite  the  sign  convention  for  the  loads  acting  on 
mass  j  (see  Figure  6),  The  minus  signs  in  equations  (33)  and 
none  in  equations  (32)  are  the  result  of  the  opposite  definitions 
for  the  loads  acting  on  the  beam  at  points  i  and  J  shown  in 
Figure  6. 


The  incremental  loads  from  equations  (32)  and  (33)  are  now 
summed  over  time  to  obtain  the  total  loads : 
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The  total  internal  forces  and  moments  acting  on  mass  i  are  now 
computed  by  summing  equations  (3*0  over  the  second  subscript. 


holding  the  first  subscript  constant: 
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where  N  is  the  total  number  of  masses, 
four-mass  system  fully  interconnected. 


As  an  example,  assume  a 
Equation  (3**a)  gives  the 


F  12 
13 
Ik 
23 
2-\ 
3** 


loads , 


Equation  (3**b)  gives  the 


F  21 

31 
1*1 

32 
1*2 

1*3  loads. 


Thus,  equation  (35)  sums  over  the  second  subscript,  holding  the 
firBt  subscript  constant,  to  obtain  the  total  internal  loads  from 
all  the  beams : 


!*? 


The  circled  terras  come  from  equation  { 3 Vb ) ;  the  others,  iron. 
(34a).  F^  =  0  for  i  «  i  (there  is  no  bean  from  i  to  i).  The 

above  scheme  is  used  so  that  the  loads  at  each  end  of  the  bean  ij 
are  not  computed  twice  (once  for  mass  i  and  again  for  mass  ,})• 
Equation  (35)  gives  the  desired  total  internal  loads  to  be  used 
later  to  determine  the  total  loads  acting  on  mass  i. 


Crash  (External)  Forces  and  Moments  (X 
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The  crash  forces  result  from  the  compression  of  external  springs 
radiating  from  each  mass,  when  these  springs  contact  the  ground  plane 
(z  *  0).  The  following  sketch  shows  the  three  springs  radiating  out¬ 
ward  from  mass  1: 
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The  free  (uncompressed)  lengths  of  the  three  springs  are  denoted 

,  and  .  These  springs  lie  along  the  body  axes  for  the  ith  mass . 

&xi ,  and  are  input  either  positive  or  negative,  depending 

upon  whether  the  spring  radiates  outward  along  the  positive  or  negative 
body  axis.  Those  shown  above  are  all  positive  springs.  C'xi,  Cyi»  and 

C  ^  are  the  end  points  of  the  fully  extended  springs.  Only  data  for 

those  springs  desired  in  the  analysis  need  be  input;  if  no  spring  is 
input,  its  crash  forces  are  set  to  zero.  Typically,  only  those  masses 
at  the  extremities  of  the  vehicle  likely  to  contact  the  ground  would 
have  crash  springs.  The  intent  of  these  springs  is  to  represent  crush- 
able  external  structure  such  as  found  on  the  lower  fuselage  and  nose 
sections. 


The  first  step  in  the  calculation  is  to  determine-  which  of  the  C^, 

and  spring  end  points  are  below  the  ground.  Only  these 

springs  are  further  analyzed  to  determine  their  crash  forces.  For 
these  springs,  the  spring  compression  along  the  spring  axis  is  deter¬ 
mined,  as  well  as  the  compression  velocity  and  the  ground  contact  point 
velocity.  Then  the  spring  force  along  the  spring  axis  is  calculated, 
from  which  the  vertical  load  in  ground  axes  at  the  ground  contact  point 
is  obtained.  From  this  vertical  load  and  input  friction  coefficients, 
the  ground  drag  load  is  computed.  The  direction  of  this  load  is  oppo¬ 
site  the  ground  contact  point  velocity  vector.  Finally,  the  three 
forces  at  the  ground  contact  point  are  rotated  into  ith  mass  body  axes, 
and  the  resulting  forces  and  moments  at  ma3s  i  are  calculated. 

1.  Spring  Compression  -  Figure  7  shows  a  typical  spring  contacting 
the  ground  at  an  oblique  angle.  Point  is  the  ground  contact 
point.  Treating  the  fully  extended  spring  as  a  vector,  that 
portion  of  the  vector  below  the  ground  represents  the  spring  com¬ 
pression.  This  is  the  distance  from  point  CJ  to  point  C..  The 
coordinates  of  point  C^,  in  ground  axes,  are  given  simpl^  by 
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The  above  equation  gives  the  coordinates  of  all  three  for  mass 
i;  these  points  are  denoted  C^,  C^,  and  G^.  Figure  7  shows 
only  one  of  the  three  springs,  so  the  nomenclature  in  Figure  7  is 


not  subscripted  to  indicate  whether  an  x,  y  nr  z  spring  is  shown. 
The  second  term  in  the  above  equation  is  equal  to  dx  . ,  dy  . »  end 
dzci  in  Figure  f:  C1  C1 
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The  dxcj, ,  dyc^,  and  dzc^  in  Figure  7  can  be  determined  from  pro¬ 
portionality  considerations  as 


and  similarly  for  the  y  and  z  springs,  ’ 


From  these  ground  axes  components  of  the  vector  from  to  CV  , 

the  magnitude  of  this  vector  (equal  to  the  spring  compression)  is 
given  simply  by 


(39) 
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V  ■  [<dicyi)2  +  (d^cyl)2  *  <d*cyi)2l 

*zl  -  f(4*°zi)2  *  (d*c zl! 2  +  <a“zi)2] 


In  order  to  simplify  the  notation, . the  following  vector*  and 
matrices  are  defined  (i  »  1,  2,,,.,N  indicate*  the  mas*;  J  *  1,2,3 
indicates  the  direction;  k  ■  1,2,3  indicate*  which  spring): 
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Using  this  nomenclature,  equations  (36)  through  (39)  become 
simply 
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We  shill  also  require  the  spring  compression  velocity,  sik.  This 
is  given  by  differentiating  equation  (47)  as 
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where  the  laat  term,  is  obtained  from  (46)  as 
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The  time  derivatives  in  (49)  ere  given  by 
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2.  Ground  Contact  Point  Velocity  -  The  next  computation  required  is  - 
to  determine  the  ground  contact  point  velocity  in  the  ground 
f plane.  This  is  necessary  to  determine  the  line  of  action  of  the 
ground  plane  drag  load,  which  is  opposite  to  the  contact  point 
velocity  vector.  The  velocity  of  point  C‘  vith  respect  to  ground 
is  given  in  vector  notation  as 


0— ■■ ..  «  c*  o 

V  ■  V  -  V 
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(52) 
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where  0 - »  C ' 

V  *  velocity  of  C'  with  respect  to  ground 


»£ - -  C ' 


V  a  velocity  of  C*  with  respect  to  point  m. 


0 - -  m  j_'- 

V  *  velocity  of  point  nu  with  respect  to  ground 


Define  nik  as  a  unit  vector  radiating  from  parallel  to  the  ith 
mass  body  fixed  axes,  as  shown  in  the  following  sketch: 


Also  define  1..  as  the  length  from  m,  to  point  C*.  This  is  given 
by  iK  1 


This  form  ie  used  so  that  1^  has  the  same  sign  as  the  input  1^* 

which  as  mentioned  earlier  can  be  negative  to  allow  springs  in 
the  negative  direction' of  the  body  axes.  Returning  to  equa¬ 
tion  (52),  o  — - -  m.  is  given  by 

v  1 


y.n  +  z.n 
y  i  z 
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where  n  ,  n  , 
x  y 
nate  system. 


and  n 


z 


are  unit  vectors  fixed  in  the  ground  coordi- 
C*  is  given  by 
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Equation  (60)  gives  the  desired  velocities  of  the  pavement  con¬ 
tact  points,  in  ground  axes.  Only  the  x  and  y  components  are  used 
later;  the  z  component  should  be  zero.  Recall  that  i  refers  to 
the  ith  mass,  j  the  jth  direction,  and  k  the  kth  spring  or  con¬ 
tact  point. 

External  Spring  Axial  Force  -  This  section  discusses  the  calcula¬ 
tion  of  the  external  spring  force  along  the  spring  axis.  The 
axial  force  in  the  spring,  denoted  FSPO.,  ,  is  input  as  a  tabular 
function  of  the  spring  compression  s ..  .  *A s  with  the  internal 
forces,  unloading  along  an  elastic  line  is  included.  However, 
unlike  the  internal  forces,  an  extension  load  is  not  allowed; 
positive  FSPO  is  a  compressive  load  acting  at  the  ground  con¬ 
tact  point  along  the  axis  of  spring  ik. 

Figure  8  illustrates  a  typical  load-stroke  curve  for  an  external 
spring.  The  basic  loading  curve  0-A-B-C  is  input  in  tabular  for* 
vs  s.,^,  and  this  curve  is  followed  during  the  initial  loading. 
During  unloading,  say,  from  point  B,  the  dashed  line  B-D  is  fol¬ 
lowed.  The  slope  of  this  line,  ke^»  is  input  to  the  program. 

During  subsequent  reloading,  curve  D-E-F  is  followed ;  this  is 
merely  the  original  curve  transposed  to  the  right  by  the  amount 
Siit-  The  dashed  coordinate  system  always  contains  the  original 
input  curve,  but  the  location  of  the  system  varies  with  each 
unloading  cycle.  Once  a<^  goes  negative,  s..  end  F8P0.,  ara 
assigned  the  latest  values  of  s^.  and  FSPO.r^the  values  at  point 
B).  These  barred  quantities  are  then  used1 with  ke..  to  define 
8ik*  *>&rre<i  QuaurUtis®  sre  initially  set  to  z*?o,  so  that 

until  the  first  unloading,  the  dashed  coordinates  coincide  with 
the  solid  coordinates. 

When  the  spring  compresses  beyond  point  C,  a  stiff  spring  ke.. 
takes  effect  (this  is  the  same  spring  constant  ha  is  used  for 
unloading),  as  shown  by  line  C-F-C  in  Figure  8.  This  is  intended 
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to  represent  the  finite  crushing  distance  available,  beyond  vhic* 
the  spring  becomes  very  stiff.  There  is  no  fracture  of  an  external 
spring,  us  there  is  with  the  internal  beams. 

The  flow  diagram  for  the  calculation  of  the  spring  force  FSPOiv 
is  shown  in  Figure  9.  The  calculations  are  performed  * 

within  nested  i  and  k  loops.  The  first  test  cn  SPik  is  to  tell 
if  there  is  an  external  spring.  If  there  is,  then  vc,k  is 
checked.  This  is  zcik.  the  vertical  position  of  the  end  of 
spring  ik.  If  this  is  greater  than  zero,  then  there  will  be  a 
spring  force.  The  next  test  is  to  see  if  sik  >  SF  ,  the  final 

value-  input  in  the  table  of  sik  vs  FSPOik  (point  C  in  Figure  8). 

If  it  is  greater,  the  'force  is  computed  as  FSPOf1v  plus  an  incre¬ 
ment  due  to  the  keik  spring.  Then  if  this  is  less  than  zero, 
it  is  set  to  zero. 

If  Sik  <  SFik“  then  we  test  This  is  simply  an  indicator 

to  see  if  the  bottoming  spring  has  been  hit  (BS  =  0  initially). 

Ix  it  has  been  hit  (BS^j.  =  1),  then  from  then  on  the  force  is 
computed  along  line  C-F-G,  and  its  extension  downward.  If  the 
bottoming  spring  has  not  been  hit,  then  5"  is  computed  from  s 

and  FSPO^ .  During  the  first  loading  cycle  these  will  be  zero, 
but  after  unloading  they  will  be  nonzero.  S’  is  then  calculated, 
and  FSPOik  is  read  from  the  input  table  unless  sjk  <  0,  in  which 

case  FSPCik  =  0.  Then  sik  is  checked  to  see  if  loading  or 
unloading  is  taking  place.  The  first  time  unloading  occurs, 
nnik  =  0  and  FSP0ik  and  sik  are  assigned  the  latest  values  of 

FSPOik  3ik'  These  correspond  to  point  B  in  Figure  8.  During 
continued  unloadings,  nn^k  t  0  so  these  values  are  not  reassigned 
until  a  loading  cycle  occurs  and  nn  is  reset  to  zero.  This 

completes  the  calculation  of  the  axial  spring  force  FSPO  ,  . 

Ik 

Crash  Forces  at  Ground  Contact  Point  -  The  three  components  of 
the  ground  interaction  force  at  the  ground  contact  point  are 
denoted  by  XVOC^jj,  where,  as  before,  1  refers  to  the  ith  mass, 

J  to  the  force  direction,  and  k  to  the  kth  spring  for  mass  i. 

component  of  the  axial  spring  force  perpendicular  to 
tne  ground  is  computed .  This  is  positive  upward  acting  on  the 
spring.  This  is  given  simply  by  resolving  FSP0ik  into  ground 
axes  and  retaining  only  the  vertical  component.  Thus,  we  have 


XVOC  =  A  FSPO 
i3k  i3k  ik 


k  =  1,2,3 


since  FoFO^. k  acos  along  the  kth  body  axis  for  mass  i.  The  ground 
P^ane  components  of  the  axial  force  FSPO^.  are  ignored*  since 
these  values  are  next  computed  on  the  assumption  that  they  are 


functions  of  the  ground-spring  friction  coefficient.  The 
ground  plane  velocity  vector,  from  equation  (60),  has  the 
magnitude 


This  is  shown  in  the  following  sketch,  ?  clan  view  looking  down¬ 
ward  at  ground  contact  point  C^: 


The  magnitude  of  the  resultant  ground  plane  load  is  assumed  to  be 
given  by  mu^^XVOC^^*  i.e.,  an  input  friction  coefficient  times 

the  vertical  load  perpendicular  to  the  ground  plane.  The  direc¬ 


tion  of  this  ground  plane  load^is  assumed  to  be  opposite  to  the 
contact  point  velocity  vector  v^,  as  shown  in  the  above  sketch. 
Therefore,  the  drag  and  side  loads  at  point  C^>  in  ground  axes, 
are  given  by 


VCpi1k 

XVOC...  =  mu , ,  XVOC . _  - 

ijk  ik  i3k  = 

vik 


J  -  1,2 


These  are  illustrated  in  the  above  sketch.  These  forces  are  now 
resoled  back  into  ith  mass  body  axes;  these  resolved  forces  are 
denoted  by  FSP, ,,  . 


we  have 


rSW  ■-[Al1<XV0C12k>  k"1*2*3 


The  minus  sign  is  used  so  that  these  forces  have  the  sane  sense 
as  the  basic  body  axis  convention,  since  XVOC. ..  were  positive 
aft,  left  and  upward.  * 

tfhese  forces  are  illustrated  in  Figure  10.' 

V7  4* 

5.  Crash  Forces  and  Moments  at  Point  -  Nov  we  are  in  a  position 
to  obtain  the -  crash  forces  and  moments  acting  at  point  a, .  Fig¬ 
ure  10  shows  these  forces  and  nonets,  which  are  just  the  resul¬ 
tant  of  the  FSP^  also  shown  in'  Figure  10;  i.e.,  the  FSP^^  are 

iu.t  now*  to  point  »t  and" compronotin*  no.mt.'.t  «t  ndd.d. 


Thus,  we  have 
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k  *  1 
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M.  -  FSP.,  „  1,„  -  FSP.  1 
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l^ie  are  Ir0ffl  equation  (53);  recall  that  they  may  he  plus  or 

minus  to  allow  for  springs  in  the  negative  direction  of  the  mass 
body  axes.  Figure  10  shows  all  1  positive.  Equations  (66) 

give  the  desired  crash  forces  acting  at  nu  in  ith  mass  body  axes. 
Damping  Forces  and  Moments  (internal)  (X_  ,Yp,Z_,L_.,Mr.„  and  N_  ) 

_ \  Di  ^i  Di  V  D< 


The  damping  forces  and  moments  are  internal  loads  in  that  they  act  at 
masses  i  and  3  due  to  the  damping  associated  with  beam  ij.  This 
damping  results  from  the  friction  of  the  joints  in  the  structure  that 
comprises  beam  ij ,  and  from  the  damping  inherent  in  the  structural 
material.  For  simplicity,  the  damping  is  modeled  as  linear  (viscous). 
Experience  with  the  program  indicates  that  this  structural  damping, 
although  believed  to  be  small ,  must  be  represented  in  order  to  con¬ 
trol  high-frequency  structural  vibrations. 

First,  for  beam  ij,  the  linear  and  angular  velocities  of  point  j  with 
respect  to  point  i  are  computed  in  beam  ij  axes.  These  are  then  pre¬ 
multiplied  by  a  6  x  6  diagonal  damping  coefficient  matrix  to  obtain 
damping  forces  and  moments  in  beam  axes.  The  damping  loads  at  point  j 
in  beam  axes  are  then  transformed  into  ground  axes,  and  the  loads  at 
point  i  in  ground  axes  are  computed  from  static  equilibrium  equations. 
Then,  the  loads  at  i  and  j  are  transformed  into  ith  and  jth  mass  body 
axes,  respectively.  Finally,  for  each  mass,  the  contributions  from 
the  various  beams  that  attach  to  that  mass  are  summed  to  obtain  the 
total  damping  loads  for  the  mass.  The  damping  forces  calculated  are 
instantaneous  total  values,  rather  than  incremental  loads  as  were  used 
for  the  internal  loads. 

The  linear  velocities  of  point  j  with  respect  to  point  i,  resolved  into 
beam  ij  axes,  are  clearly  given  by 
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The  loads  at  aaaa  au,  In  4th  body  axes,  are  obtained  from  equation 
(70)  as  3 


and 
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The  minus  sign  is  necessary  because  the  sense  of  th*  loads  acting  on 
mass  j  is  opposite  the  sign  convention  for  the  loads  acting  on  mass  j, 
as  shown  in  Figure  6. 

We  now  obtain  the  total  forces  and  moments  acting  on  mass  i  by  summing 
the  contributions  from  equations  (72)  and  (73)  over  the  second  sub¬ 
script.  This  is  the  same  method  as  employed  for  the  internal  forces, 
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equation  (35),  and  explained  earlier. 


Xd1  *  Yci  =  ^Di  * 
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itl^bodj^axes  damping  forces  and  moments  acting  on  mass  m^  in 

We  now  digress  briefly  to  discuss  the  determination  of  the  diagonal 
damping  matrix  used  in  equation  (68).  The  first  three^diagon- 

al  elements  of  this  matrix  are  given  simply  by 


(75) 


where  is  the  kth  diagonal  element  of  the  6  x  6  stiffness  matrix 

|Kij]for  beaa  Cij  is  80  inP,u'b  constant  giving  the  damping  ratio 

used  for  beam  ij.  Equation  (75)  gives  the  viscous  damping  constant 
corresponding  to  the  input  damping^,  for  the  isolated  system  con¬ 
sisting  of  masses  i  and  j  connected  by  beam  ij.  A  separate  C  is 
input  for  each  beam  ij.  ij 


For  the  rotational  degrees  of  freedom,  we  must  first  rotate  the  inertia 
matrix  for  m^  into  ith  mass  axes.  This  is  evidently  given  by 


[IJ  i 

J  axes 


where  j I j |  is  the  3x3  inertia  matrix  for  mass  m 
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Note  that  1^  is  Just  the  aua  of  and  1^  ,  rotated  Into  ban 

axes.  This  rotation  must  be  performed  because  in  equation  (?8) 

:.s  associated  with  beam  ij  axes.  Equations  (75)  and  (78)  give  the  six 
“'C^J  terms  necessary  for  equation  (68).  These  terms  are  computed 

prior  to  the  main  time  loop  in  the  program,  since  they  involve  qc  time- 
varying  quantities.  This  completes  the  discussion  of  the  denying 
forces  and  moments. 


Total  Forces  and  Moments  at  m^  (X^,  Y^,  Z^,  L^,  M^,  and  N^) 

The  total  forces  and  moments  at  m^,  in  ith  body  axes,  axe  used  to  drive  the 

six  rigid-body  degrees  of  freedom  of  lumped  mass  Ifcese  total  forces 

and  moments  are  Just  the  sum  of  the  components,  i.e.,  the  gravity,  aero¬ 
dynamic,  internal,  crash  and  damping  forces  and  moments .  The  total  loads 
are  given  by 
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(80) 


There  are  no  gravity  and  aerodynamic  moments.  The  terms  of  equation 
(80)  come  from  equations  (4),  (7),  (35),  (66) ,  and  (74). 


Rigid-Body  Equations  of  Motion  of  Each  Maas 

Having  obtained  all  the  forces  and  moments  acting  on  each  mass  ,  ve 

can  nov  vrite  the  rigid-body  equations  of  motion  for  mass  m^.  Euler’s 

equations  of  motion  are  used.  These  are  derived  in  Reference  43;  the 
derivation  is  not  repeated  here.  The  tody  axis  components  of  the 
absolute  (relative  to  ground)  translational  velocity  of  mass  m^  are 

denoted  by  u^,  v^  and  v^.  The  corresponding  rotational  velocities 

are  designated  pit  q^,  and  These  velocities  are  shown  in  the 

following  sketch: 
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Euler's  equations  of  motion  are  six  equations  for  the  time  derivatives 
of  the  six  velocities,  in  terms  of  the  six  total  forces  and  moments 
from  the  preceding  section,  the  velocities  themselves,  and  the  inertia 
properties  of  mass  m..  These  equations  are  (from  Reference  43): 
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(81) 
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Xlf  Z^,  L^,  M^,  and  are  the  total  forces  and  moments  from  equa¬ 
tion  (80).  1^,  ^-yi’  an<*  Izi  are  moments  of  inertia  of  mass 

about  its  body  fixed  axes.  I  ^yz*  *  ai1(*  ^Z3f<  are  Pro^ucts  °- 
inertia,  e.g.,  1  =  /  x^dfl^,  etc.  Hgxi>  Hgyi>  and  Hgzi  are  the 

angular  momenta  of  masses  m^ ,  due  to  rotation  of  internal  masses  within 
mi,  such  as  propellers,  rotors,  and  engine  turbines.  These  terms  are 
used  only  for  a  few  selected  masses,  such  as  the  rotor  dish,  the 
engine,  and  the  tail  boom.  They  are  input  constants. 
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The  above  equations  of  motion  are  integrated  numerically  to  yield 
u4 ,  vi,  Vj.,  and  p^,  q^,  r^.  We  obtain  the  translational  velocities 

in  ground  axes  by  a  simple  transformation. 
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Similarly,  the  angular  velocities  p  ,  q^,  and  r^  ere  the  body  axes 
components  of  the  instantaneous  absolute  rotation  rate  uT.  of  mass  m, . 

1.  jl 

These  variables  do  not  correspond  to  any  set  of  coordinates  which 
specify  the  orientation  of  the  airplane.  Therefore,  in  order  to  solve 
for  the  orientation,  it  is  necessary  to  transform  the  p' ,  q',  r*  to 
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the  time  derivatives  4>^,  0^,  ^  of  the  Euler  angles.  By  summing  the 
orthogonal  projections  of  <j>^,  0^,  ^  onto  each  of  the  body  fixed  axes, 
the  following  kinematic  relations  are  obtained  (Reference  ’+3) : 


+  (q^sin4>^+r^cos4K  )  tan  0^ 

0^  =  qico84>i  -  r^intju  (84) 

i|'i  =  (q^in^+r^ostfu)  sec  0i 


Equations  (83)  and  (84)  are  integrated  numerically  to  obtain  x, ,  y., 

1  X 

z ^  and  <J>^,  0^,  Also,  p^,  q^,  and  r^  ore  integrated  to  obtain  tne 

quantities  inp^,  inq^,  and  inr^.  The  incremental  changes  in  these 

integrals  are  used  in  equation  (23).  They  represent  the  incremental 
•rotations  of  mass  m^  in  body  fixed  axes. 

Control  Volume  Mass  Penetration  Calculations 


The  computer  program  includes  the  calculation  of  whether  or  not  any  of  the 
H  lumped  masses  have  penetrated  into  an  input  control  volume .  The  purpose 
of  these  calculations  is  to  determine  if  a  major  mass  item  (such  as  the 
transmission)  has  moved  into  a  position  where  it  threatens  the  vehicle's 
passengers.  Therefore,  the  control  volume  input  is  intended  to  define  the 
volume  of  the  vehicle  in  which  human  occupants  tire  present.  The  rectangu¬ 
lar  control  volume  is  located  with  respect  to  one  of  the  lumped  masses, 
which  is  specified  in  the  input.  The  following  sketch  shows  a  typical  rec¬ 
tangular  control  volume  defined  with  respect  to  mass  m  . 
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The  aix  walls  of  the  control  volume  are  always  perpendicular  to  the  three 
body  axes  fixed  in  mass  m  .  Thus,  the  spatial  orientation  o?  the  control 


volume  varies  as  mass  m  rotates,  x  ,  x  ,  y  ,  y  >  z  ,  and  z  ,  all  positive, 

p  p'  n  p  n’  p*  n 

are  the  input  constants  defining  the  distances  from  nip  to  the  six  walls, 

measured  in  the  positive  and  negative  directions  along  the  body  fixed  axes 

of  m  . 

P 


Mass  penetration  is  determined  by  merely  examining  the  pth  body  axes  com¬ 
ponents  of  a  vector  from  control  mass  m  to  mass  m, ,  i  =  1,2,...,N  (i  /  p)» 

P 

These  components  are  given  simply  by 


where  [A  ]  is  the  transformation  matrix  [A.]  for  i  »  p.  These  vector  ccm- 

P  — 

ponents  are  then  tested  against  the  control  volume  dimensions,  if  all 
three  vector  components  lie  within  the  corresponding  pairs  of  control  vol¬ 
ume  vails,  then  the  ith  point  has  penetrated  inside  the  control  volume. 
Whenever  a  mass  penetration  occurs,  the  program  prints  out  the  time  and 
mass  that  penetrated.  These  data  are  repeated  in  a  summery  table  at  the 
end  of  the  Iran,  showing  ail  the  mass  penetrations  for  that  run. 

Dynamic  Response  Index  (DRl) 

The  program  also  includes  the  capability  of  computing  Dynamic  Response 
Index  (DRl)  for  certain  selected  masses.  DRI  is  a  nondimens ionali zed 
measure  of  the  compression  of  the  human  spinal  column,  and  statistical  data 
is  available  relating  DRI  to  the  probability  of  spinal  injury.  References 
35  and  36  describe  DRI's  in  detail.  Basically,  all  that  is  involved  is  the 
following  mathematical  model: 
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*• IX  •  »»1»«  deflection (a^  -  x^) 
6  '  386  ln/eee2 
t  •  %  critical  dtueplng 


Mass  m^  is  the  occupant's  seat.  Mass  m g  is  the  upper  torso  of  the  occupant; 

the  frequency  and  damping  ratio  given  are  intended  to  properly  model  the 
dynamic  response  of  the  upper  torso  to  the  seat's  excitation.  Mass  m^  is 

also  the  upper  torso,  hut  the  stiffness  and  damping  are  slightly  different. 
This  is  done  to  obtain  a  response  number  (DRI)  for  mass  m^  that  correlates 

well  with  statistical  injury  data.  The  important  point  is  that  mass  m^  is 
driven  by  mass  m^,  but  the  interconnecting  forces  only  drive  mass  m^,  not 

mass  Thus,  the  coupled  systems  of  m^  and  m 2  determine  the  response  of 

n^,  and  this  response  drives  m^.  The  Dynamic  Response  Index  is  defined  in 

the  previous  sketch  by 

u)26 

DRI  =  -2- 
g 

Plugging  in  the  constants,  we  obtain 

DRI  =  6. 556 
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If  the  damping  were  zero,  the  DRI  would  be  the  acceleration  of  mss  m3. 

With  damping,  it  is  a  nondimens ionalized  measure  of  sparing  compression. 

In  the  computer  program,  8  is  taken  as  -vbp  (Equation  26)  for  the  ij  ele¬ 
ment  corresponding  to  the  beam  between  mass  1  and  3<-  The  program  is 
coded  so  that  for  selected  ij  pairs  (specified  by  the  input),  the  internal 
farce  acts  only  on  mass  not  on  mass  i.  In  the  above  sketch,  beam  1-3 
would  be  treated  in  this  way,  with  its  internal  forces  acting  only  on 
mass  3.  The  only  restriction  is  in  the  numbering  of  the  masses;  the, mass 
representing  the  torso  must  be  assigned  a  larger  number  than  the  mass\ 
representing  the  seat. 

Integration  Routine 

The  equations  of  motion  derived  earlier  are  integrated  numerically  in  the 
computer  program  KRASH.  .The  integration  scheme  employed  is  a  modified 
predictor-corrector  method.  The  following  sketch  shows  a  time  history  of  a 
typical  response  quantity,  say,  u.  Assume  that  u  and  u  are 


known  at  time  t  and  all  previous  times.  The  predicted  value  of  u  at  t  +  At, 
Upt  ‘ is  computed  as 


u 

^t+At 


Ut-At 


+  2Atut 


(86) 


This  is  shown  in  the  above  sketch  by  the  upper  dashed  line  of  slope  u*. . 

\* 

Using  this  predicted  value  of  u  at  t  +  At,  the  derivative  u  at  t  +  At  is 


I  4 

i  i 
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computed  from  the  equations  derived  in  the  theory.  This  derivative  iB  then 
averaged  with  u  at  t  to  determine  a  corrected  value  of  u  at  t  +  At: 


i  =  u,  +  .  (u,  J_A, +u.  ) 

<Wt  11  2  t+lt  1 


This  is  shown  by  the  lower  dashed  line  in  the  above  sketch.  The  final 
value  used  for  u^+^  is  a  weighted  average  of  the  predicted  and  corrected 

values.  For  the  present  program,  the  weighting  used  is  4  to  1  in  favor  of 
the  corrected  value.  Hence 


Vm  =  °-sV 


+  0.2u 


Pt+At 


A  computational  flow  diagram  for  this  scheme  is  shown  in  Figure  11.  Since 
the  technique  is  not  self -starting  (due  to  the  u.  , .  term  in  equa- 

tion  (86)),  a  simple  Euler  integration  is  used  for  the  first  step.  The 
subroutine  DERIV  encompasses  all  the  equations  derived  in  the  theory,  and 
is  used  to  compute  the  derivatives  of  all  the  variables,  knowing  the  vari¬ 
ables  themselves. 

The  iteration  shown  by  the  dashed  line  in  Figure  11  is  often  employed  with 
this  scheme,  the  iteration  continuing  until  the  predicted  and  corrected 
values  agree  to  within  a  specified  tolerance.  However,  the  iteration  is 
not  used  in  the  program  KRASH.  Due  to  the  large  number  of  computations  in 
the  subroutine  DERIV,  it  is  more  efficient  to  go  through  DERIY  only  once 
per  time  step,  and  to  choose  a  sufficiently  small  time  step  At  to  obtain 
the  desired  accuracy. 

The  subroutine  IC  computes  all  the  initial  values  (at  t  =  0)  of  the  vari¬ 
ables  necessary  for  the  integration  to  proceed.  The  following  section 
discusses  the  calculations  of  these  initial  conditions. 

Initial  Conditions 


Initial  values  (at  t  *  0)  are  required  for  the  following  quantities : 
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Figure  11. 


Numerical  Integration  Flow  Marram. 


no v  write  an  expression  for  the  ground  coordinates  of  m^: 


<*i>  -  (yG>  +  u'3  yi 


0 


™ij  *  v«j  +  SA'jivlpil  3  "  1'2’3 


where  x^,  yQ,  and  zG  are  currently  unknown,  and 


1  X* 

A 

\  ( 

1  \ 

*  -  I 

;ai. 

( 

v"  v"  ' 

xi  ~  u 


v"  -  v" 
yi  yG  i 


x"  -  z" 
Zi  ZG 


vlpij  *  -(vippiJ-  6PPi,)  J  s  -»2»3 


The  vippij  are  the  input  coordinates  cf  the  a^,  and  .the  vgpp^  were 

ccmputed  in  (90),  so  the  vip.^  are  known.  In  equation  (91),  [£;  j  le 

known  frci  .he  input  Euler  angles*',  0',  and  .  The  only  unknciras  f.n 
(91)  arv'  x  ,  yQ,  zQ  (defined  as  vg^ ) .  Clearly,  the  x  and  y  ground 

coordinates  of  the  initial  c.g.  position  are  arbitrary,  eo  these  are 
set  to  ztiro.  It  remains  only  to  determine  the  initial  c.g.  height, 
z„  (vg_).  This  height  is  either  input  to  the  program  or,  if  zero  is 

input,  is  chosen  so  that  the  lowest  crash  point  (C^,  C  in 

Figure  1)  is  initially  0.001  inch  above  the  ground.  From  equations  (U<) 
and  (l»5),  we  have  the  z  coordinate  of  the  kth  3pring  for  the  itn  mass 

8,8  —  t  n  \ 

vci3k  *  vai3  +  Ai3k1ik  ^ 


nrK.  ><*.;•  *JK"1 


To  perform  the  shove  calculations,  ve  need  to  know  [A^J,  which  is  used 

in  equation  (95) ;  From  the  definitions  of  the  transformation  matrices 
(refer  to  Table  I  earlier),  we  have  simply 


[A,! 


U'HAji 


i  a  1,2,. ..,K 


(98) 


ith  body  axes  to  c.'.g.  axes 
l—z.  g.  axes  to  ground  axes 


Equation  (98)  also  allows  us  to  determine  the  initial  values  for 
^i*  determined  from  *  -  j.inS^  as 


61  *  -Bln  '  Ai31 


(99) 


Kext,  is  found  from  A^g.  *  «in^i  cos0., ,  since  6^  is  now  known: 

♦i  ■ ,ln'1  '100) 


Finally,  ^  ia  o.  vJLned  from  A^  »  co»6i  sia^,: 


V  --1  @8;) 


Note  -hat  equations  (99) »  (100)  and  (101)  all  involve  arc  sine,  so  the 
difference  between  a  positive  and  negative  angle  can  be  detected. 

Hext  the  linear  and  angular  velocities  are  calculated.  Differentiating 
equation  (9Ut  ve  obtain 
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where  the  first  vector  is  input  and  the  second  vector  is  given  fcy 

♦  t  • 

(92).  [A  j  is  treated  the  same  *s  [A^,]  was  earlier  la  the  theory: 


[a‘j  =  [a']  [d'] 


(103) 


where 


*  t  Is!  *  I  I 

[D  *  3  —  ~6  cir.#  +#  cos#  cca0  0 

*t  t  •  *  »  «  *  *  * »  t 

-0  cos #  -#  sin#  cos0  #  -ip  sin6 


,  *  •  t  •  t  1  »  •  1  t  •  1  » 

|  0  sin#  -if)  cos#  cosS  0  cos#  +#  sin#  cos0 

I  - »  •  *  » 

I  0  .  -#  +#  SihQ 


(104) 


#',0',  and  #'  are  input,  and  #  ,  0  ,  and  \p  are  calculated  from  the 
input  p’,  q' ,  and  r’  hy  (refer  to  equation  (84)): 


6  =  [A  ]  q’ 


(105) 


where 


sini'tan©'  cos#,tan8' 


cos#' 


'•sir.#' 


0  sin#'sec0'  cosi’secO* 


(106) 


Once  x  ,  yi,  and  z_,  are  known  from  (102),  these  are  simply  transformed 
into  body  axes  to  obtain  u„. ,  ,  and  w^: 


» !‘‘l 


;V  yi 


(107) 
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The  angular  velocities  in  body  axes  (p^,  q^  and  are  equal  to  the 

vehicle  angular  velocity  (p',  qf,  and  r'),  transformed  from  c.g.  axes 
to  ith  mass  axes: 


(108) 


Next  we  detennine  ,  0^,  and  ’■p^  by  equations 
(106),  only  using  angles  and  0^  this  time: 


analagcus  to  (105 )  and 


where 


tA..j  = 


1  sin4>^  tan0j 


0  cos<p. 

0  sin$.  3ec0 


COs4>^  t£U10^ 


-sin4>., 


^  cos4>^  sec0^ 


(109) 


(110) 


The  only  remaining  initial  conditions  to  be  determined  are  the  beam 

At  present,  the 


deflections  and  forces  vb. ,  FM.  ,  and  X* 

ijl  ljkl  ij’ 


•Nlj 


program  i3  written  so  that  the  initial  values  for  all  these  quantities 
are  zero.  This  is  only  true  for  the  case  where  there  are  no  aerody¬ 
namic  loads,  so  that  all  masses  are  uniformly  accelerating  downward  at 
lg.  Therefore,  if  aerodynamic  loads  are  used  in  the  program,  the 
initial  conditions  will  not  be  correct  since  internal  forces  would  be 
required  to  balance  the  aerodynamic  and  gravity  forces.  However,  this 
is  not  considered  a  serious  limitation  since  the  vast  majority  of  acci¬ 
dent  cases  involve  loss  of  aerodynamic  lift. 
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Also  computed  in  the  initial  condition  subroutine,  although  not  truly 
Initial  conditions ,  are  the  Euler  angles  0^  and  .  These  angles 

are  used  in  [A^j,  which  transforms  vectors  from  beam  ij  axes  to  ith 

body  axes.  This  computation  is  performed  only  if  the  input  angles 
4>^,  9^,  and  \j>'^  are  till  zero.  This  means  that  all  the  ith  body  axes 


are  parallel  to  the  vehicle  c.g.  axes.  This  is  normally  the  case, 
since  the  inertia  properties  for  the  masses  are  usually  available  in 
these  axes.  Figure  11  shows  beam  ij  connecting  points  and  m . .  The 


distances  from  m, 
given  by  " 


measured  along  vehicle  c.g. 


(')  axes,  are 


where  the  terms  on  the  right-hand  side  are  computed  in  equation  (92). 
Figure  12  shows  the  Euler  angles  ^  and  6^ .  The  basic  equations  for 

these  can  be  seen  from  Figure  12  to  be 


(112) 


However,  due  to  the  problems  encountered  in  calculating  these  angles 
in  various  quadrants,  as  well  as  in  calculating  90°  angles,  the  algor¬ 
ithm  shown  in  Figure  13  is  actually  used  to  compute  these  angles.  The 
arc  tangent  functions  used  give  angles  between  +180°  and  -180°. 

The  function  also  automatically  gives  =  SIGN  (y^ )  x  ~  if'  *»  G 
in  thf*  right-hand  equation  for  ^  ^ .  The  test  for  y^  «  0  is  necessary 
to  avoid  the  indeterminate  0/0  for  if  both  y^  and  are  zero. 

Ok 


The  remaining  Euler  angle  1*  always  input,  since  it  is  not  a  func¬ 
tion  of  the  locations  of  a^  and  a^ ,  This  "roll*'  angle  is  chosen  so 

that  the  resultant  beam  ij  axes  coincide  with  convenient  structural 
axes,  <$>  is  usually  zero.  This  completes  the  computation  of  the 

initial  conditions. 


Figure  12. 


Euler  Angles 


and 
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USER'S  GUIDE 


This  section  describes  all  the  input  necessary  to  run  the  program,  and 
the  output  available  from  the  program. 

Input 


The  input  data  format  is  described  in  detail  in  this  section  and  is  shewn 
in  Figure  l4.  Unless  otherwise  specified,  all  quantities  are  input  in 
inch,  pound,  second,  and  radian  units.  For  cards  0300  and  on,  the  input 
format  is  6E12.0  unless  otherwise  noted.  Each  card  has  6  fields;  each 
field  is  12  columns  wide.  As  an  example  of  this  format,  the  number 
126,08  can  be  input  in  the  following  ..ways : 


1  /< 

•  j  u\o 

I  I'i 

KL 

Himmum 


Blank  columns  are  treated  as  zeros.  When  the  E  format  is  used,  the  expo¬ 
nent  must  be  right  justified  in  the  field.  On  cards  0100  thru  0299#  the 
format  13  is  sometimes  used.  This  simply  requires  a  right  justified  in¬ 
teger  in  a  field  width  of  3.  Sequence  numbers  in  columns  7T  thru  80 
should  be  used  corresponding  to  those  shown  in  the  input  format  to  facili¬ 
tate  deck  assembly  and  changes.  All  tabular  input  is  linearly  interpolated 
between  input  values  and  extrapolated  beyond  the  two  end  values,  if 
necessary. 

Card  0100  -  This  card  contains  the  title  for  the  case  being  analyzed. 

All  text  material  on  card  0100  is  reproduced  at  the  top  of  every  page 
of  the  output  and  on  every  plot. 

Card  03.01  -  N  is  the  total  number  of  lumped  masses.  ASvi.nt/  At  is  the 
integer  multiple  of  4$t  at  which  output  is  printed,  i  is  the  number  of 
points  in  the  KRiji  vs  v,  ...  tables,  i  currently  must  be  6.  At  is  the 
numerical  integration  timeJ  Interval.  tm&x  is  the  time  span  being  analyzed 

Cards  0200  thru  02XX  -  These  cards  contain  the  Euler  angles  0..,  #£■}, 
and  for  all  beams  i j .  The  beam  interconnections  are  defined  by  the 

i's  ana  j’e  input,  i  must  be  less  than  j,  bub  there  is  no  other  re¬ 
quirement  on  the  ordering  of  the  ij  pairs .__Aj  is  always  input;  ■Gjj 
and  if/ij  need  net  be  input  if  0^,  ©£,  and  on  cards  0500-Q5XX  are  all 
zero.  In  the  latter  case,  and  are  computed  in  initial  condi¬ 
tions.  win  normally  be  zero.  There  must  be  a  blank  card  follow¬ 

ing  all  the  ij  pairs  input. 

Cards  0300  thru  030X  -  As  many  of  these  cards  as  necessary  are  used  to 
input  the  weight's^Tnot  masses)  of  the  N  lumped  masses. 


Cards  0310  thru  03XX  -  N  of  these  cards  are  required.  Each  card  inputs 
the  six  moments  and  products  of  inertia  for  the  ith  mass,  i  ®  1,  2, 


cards  woo  thru  04XX  -  He  . ,  He  , ,  and  He  .  are  the  body  axes  component 
of  the  angular  moments  ofH&asselm,,  due  ?o  rotation  of  internal  masses 
within  m. .  These  are  normally  zero. 


Cards  0450  thru  04* 
equation  (5) . 


-  lc^  are  the  aerodynamic  lift  constants  used  in 


Cards  0460  thru  0462  -  The  cards  contain  the  overall  vehicle  initial 
conditions,  x  .  y  ,  and  z  are  the  ground  axes  components  of  the  ini¬ 
tial  c.g.  velocity;  p',  q  ,  and  r'  are  the  c.g.  coordinate  system 
components  of  the  initial  angular  velocity  of  the  vehicle,  p'  is  the 
roll  velocity,  q'  the  pitch  velocity,  and  r*  the  yaw  velocity.  0' ,  O’, 
and  iff'  are  the  Euler  angles  relating  the  initial  position  of  the  vehicle 
to  ground  coordinates.  0'  is  the  roll  angle,  0’  the  pitch  angle,  and 
iff'  the  yaw  angle,  z_  is  the  negative  of  the  initial  vehicle  c.g. 
height  above  ground.  If  this  is  input  as  zero  (blank),  the  initial 
condition  subroutine  computes  a  value  of  z  so  that  the  lowest  extrem¬ 
ity  of  the  vehicle  is  .1  inch  above  the  ground. 

Cards  0470  thru  04xx  -  These  cards  are  used  to  input  the  coordinates  of 
the  N  lumped  masses.  xV  is  the  Fuaelafce  Station  (increasing  aft),  y" 
is  the  Butt  Line  (positive  left),  and  z"  is  the  Water  Line  (increasing 
upward) . 

Cards  0500  thru  05XX  -  0V,  O'1,  iff",  i  =  1,2,...,N  are  the  Euler  angles 
from  the  c.g.  axes  to  the  itn  mass  axes.  If  the  ith  mass  body- fixed 
areas  are  parallel  to  the  vehicle  c.g.  coordinate  axes,  which  is  usu¬ 
ally  the  case,  these  are  all  input  as  zero.  Note  that  if  any  nonzero 


values  are  input,  then  6. 


and  if/^j  on  cards  0200  thru  02XX  must  be  input. 


Cards  0600  thru  06XX  -  T  ,  i  =  1,2,...,N;  k  «  1,2,3  are  the  free 
lengths  of  the  external  Springs.  Zeros  are  input  if  no  spring  is  util¬ 
ized.  T„  is  positive  if  it  radiates  out  from  mas3  m,  in  the  positive 
directioflof  the  ith  mass  body  axes;  1,,  is  negative  If  it  radiates  in 
the  opposite  direction.  Springs  in  both  directions  are  not  allowed. 

Cards  0700  thru  07XX  -  Integer  format  13  is  used  to  define  the  SP,.. 

If  SP..  «  1,  there  is  a  kth  spring  on  the  ith  mass;  if  SP..  »  0,  tftere 
is  no1 spring. 

Cards  0710  thru  07XX  -  mu, ,  are  the  friction  coefficients  between 
ground  and  the  end  of  thexTk  spring. 

Cards  0750  thru  07XX  -  ke^  are  the  linear  unloading  stiffnesses  and 
also  bottoming  stiffnesses  for  the  ik  spring. 
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Cards  0800  thru  0805  -  T£ese_six  ctrds  are  vised  to  input  the  6x6 
linear  stiffnesTraatrix  tor  the  first  IJ  beam,  listed  on  card  0200. 

Bach  card  inputs  one  row  of  the  matrix. 

Cards  0806  thru  1999^-  As  many  cards  as  necessary  ar  used  to  input  all 
the  remaining  6  x6  J&yl  matrices.  These  matrices  must  be  ordered  the 
as  the  ij  pairs  are  ordered  on  cards  0200  thru  Q230C. 


Cards  2000  thru  20XX  -  vmBV  11k,  k  =  1-6  are  the  maximum  beam  deflections 
and  rotations  for  beam  ij.  These  are  ordered  the  same  as  cards  0200  thru 
02XX.  When  any  one  of  the  six  maximum  deflections  or  rotations  is  exceed¬ 
ed  (either  positive  or  negative) ,  element  ij  fractures  and  its  internal 
forces  are  set  to  zero  for  the  remainder  of  the  run.  The  deflections  and 
rotations  are  of  point  j  with  respect  to  point  i,  in  beam  ij  axes.  They 
are  ordered  x,  y,  z,  * 

Cards  2100  thru  21XX  -  B3C,  n  are  the  spacings  for  the  six  equally  spaced^ 
abscissa  values  in  the  following  table  of  KRiji  vs  vb^,  for  1  =  1  thru  6. 

Cards  2100  thru  2206  -  Each  card  inputs  the  six  KRjji  values  defining  the  . 
table  of  lffii11‘^rVbi1i,  tor  the  first  ij  pair.  The  first  value  corres¬ 
ponds  to  vb-j^-L  =  0,  the  remaining  five  are  spaced  BX-yi,  to  the  right. 

Six  cards  are  input,  one  for  each  1  deflection  or  rotation,  ordered  x,  y, 
a  $  0,^.  KR.11  ese  the  diagonal  elements  of  a  6  x  6  diagonal  stiff¬ 

ness  reduction  matrix.  It  is  initially  1.0,  corresponding  to  a  linear 
system,  and  then  increases  or  decreases  with  vb^,  depending  on  whether 
the  nonlinear  beam  gets  stiffer  or  softer.  Refer  to  the  THEORY  section 
on  internal  forces  for  the  usage  of  KRiji. 

Cards  2207  thru  2XXX  -  As  many  cards  as  necessary  are  used  to  input  the 
K&rr  tables  for  the  remaining  ij  pairs.  Six  cards  per  ij  pair  are  used. 
The  ij  pairs  are  ordered  as  on  cards  0200  thru  02XX. 

Cards  3000  thru  30XX  -  These  cards  are  used  to  input  tables  of  FSP0lk  vs 
8rk,'  'the  axial  loadTin  the  external  springs  versus  the  spring  compression. 
The  program  is  currently  written  so  that  a  table  of  the  following  form 
must  be  input: 


FSP0piki 


FSFO. 


FSK^ 


0  BIik 


8Aik  6Bik  8Fik 


- i  , r..  *•  v  ' 

r-:  V  1  — 


V«  » 


This  table  is  defined  by  six  parameters  %ik,  sAj.k,  Sg^,  %!£>  F3P0iik 
and  FSPOpj:^.  'These  parameters  are  input  in  order  for  k  =  1,  2,  3  and  i  = 
1,2,. N.  Zeros  are  input  if  no  spring  exists  (SP^  =  0). 


Cards  3200  thru  32XX  »  These  cards  are  used  to  input  the  Cjj  for  all  the 
ij  pairs  defined  on  cards  0200  thru  02XX.  is  the  damping  ratio  (damp¬ 
ing/ critical  damping)  for  the  isolated  system  consisting  of  masses  and 
mj  connected  by  beam  ij.  Values  of  between  .01  and  .05  are  generally 
representative  of  the  structural  damping. 


Cards  5001  thru  5024  -  These  cards  are  used  to  specify  the  time  history 
output  plots  desired.  The  only  input  for  these  cards  is  either  a  1  or  a 
blank.  A  1  results  in  the  output  of  a  time  history  plot  for  the  response 
quantity  indicated;  a  blank  results  in  no  plot  for  that  item.  For  example, 
a  1  in  the  13th  column  of  card  5003  specifies  that  a  time  history  plot  of 
zi3  is  to  be  generated.  For  cards  5001  thru  5012,  the  column  number  in 
which  the  1  is  input  indicates  which  mass  i  is  desired.  For  cards  5013 
thru  5024,  the  column  number  in  which  the  1  is  input  indicates  which  ij 
pair  is  desired,  where  the  ij  pairs  are  ordered  as  on  cards  0200  thru  02XX. 


Plots  are  available  for  the  displacements,  velocities  and  accelerations  of 
all  the  lumped  masses,  all  the  external  spring  compressions  S^,  and  all 
the  beam  ij  total  deflections/rotations  (vbj.)  and  forces/moments  (Fj.) • 

The  latter  two  items  are  in  beam  ij  axes.  Also  available  are  plots  or  the 
BHI  (Dynamic  Response  Index).  These  are  identified  by  the  DRI  ij  element, 
as  described  on  card  7000  below.  The  plot  variables  are  labelled  automati¬ 
cally,  and  the  plot  scales  are  chosen  automatically.  The  user  merely  has 
to  specify  which  plots  are  desired.  Up  to  150  plots  can  be  requested  per 
run.  Thirty  thousand  data  points  are  stored  for  plotting,  with  the  plot 
time  Interval  depending  on  run  time  and  number  of  plots  requested.  Thus, 
if  the  maximum  of  150  plots  are  requested,  200  points  will  be  saved  to 
generate  each  plot.  If  the  maximum  run  time  is  .2  second,  this  will  give 
one  data  point  every  .001  second.  For  the  types  of  problems  analyzed, 
this  appears  to  be  a  marginally  acceptable  resolution.  Requesting  fewer 
plots  automatically  increases  the  number  of  points  per  plot  and,  hence, 
the  resolution. 


Card  6000  -  P  is  the  mass  to  be  used  to  locate  the  mass  penetration  con¬ 
trol  volume.  The  format  is  12.  If  no  mass  penetration  calculations  are 
required,  this  card  is  input  blank  and  card  6001  is  not  required. 


Card  6001  -  xn,  xp,  yn,  yp,  zn,  and  zp  are  the  six  distances  (all  posi¬ 
tive),  measured  from  the  control  mass  P  to  the  six  sides  of  the  control 
volume.  These  are  measured  along  the  positive  (p)  ana  negative  (n)  body- 
fixed  axes  for  mass  mp. 


SS 


Data  Format 


CMCCKlOaV 
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Print  Output 

First,  sill  the  input  data  is  printed  out,  with  self-explanatory  identify¬ 
ing  titles.  Next,  at  each  print  time  (=  £  Print/  At  x  ^t),  the  data 
shown  in  Figure  15  is  printed  out.  At  the  top  of  each  page,  the  case 
identification  aata  is  printed  cut  (from  input  card  0100),  Then  the 
current  value  of  tine  t  is  printed. 


fit® 

*■  *  j$p 


Next,  for  each  of  the  N  masses,  five  lines  of  data  are  output,  x^ ,  y., 

x. ,  y, ,  and  z.  are  the  ground 
tn,.x  u, ,  v, ,  and  w  are  the  ith  body 

axes  components  of  the  velocity  of  m^.  tC,  v. ,  and  >r  are  the  time  deriv- 

e  not  equil  to  the  acceleration  of 


and  z  are  the  ground  coordinates  of 
axes  components  of  the  velocity  of 


and  w 


(These 


are 


stives  of  u.  ,  V,  ,  ciuu  «,  • 

m.,  as  can  Tie  seen  fro®  equation  (8l) ,)  XACCEL,  YACCEL,  ZACCEL  are  the 
tody  axes  components  of  the  acceleration  of  a^. 


p.t  9, ,  and  «/>.  are  the  Euler  angles  defining  the  attitude  of  body  m , ,  in 
roll,  pitch  afid  yaw.  0^,  9*  ,  and  t ft"  are  the  time  derivatives  of  0. ,  0, 
and  .  p^,  q.,  and  r,1are1the  tody  axes  components  of  the  angular  vel¬ 
ocity  of  m.;  tney  are  the  velocities  in  roll,  pitch,  and  yaw,  respectively. 

Pi#  q^»  and  r^  are  the  tody  axes  components  of  the  angular  acceleration  of  . 

Following  that  output,  the  running  time  sums  of  the  internal  forces  .? 
(Equation  (27))  are  printed  out;  the  six  forces  and  moments  for  each'ij  ^ 
pair  are  printed  on  a  line  preceded  by  the  identifying  i  and  J.  Next, 
the  running  time  auras  of  the  beam  deflections  f-yb^  J  (Equation  (26))  are 
printed  out  in  the  same  format.  1 

Finally,  the  external  spring  compressions  (Equation  (47))  are  printed 
out.  Each  line  starts  with  the  i,  followed  by  the  for  k  *  1,  2,  3. 

Only  values  of  i  for  which  a  spring  is  input  are  shown. 

During  the  course  of  the  run,  if  any  ruptures  or  control  volume  mass 
penetrations  occur,  the  appropriate  information  is  printed  out.  When  a 
rupture  occurs,  the  word  RUPTURE  is  printed,  followed  by  four  items: 


1. 


2. 


3. 


The  i;J  pair  that  ruptured,  where  the  numbering  corresponds 
to  the  ordering  of  the  ij  pairs  as  input  on  cards  0200  thru 
02XX. 

The  1  (from  1  to  6)  indicating  in  which  direction  (in  beam 
axes)  the  rupture  occurred.  These  are  ordered  x,  y,  z,  0, 

9,  end  \f/\  See  Figure  24  for  the  directions  of  the  beam  axes. 


The  'vP±yJ_  at  the  time  of  rupture.  This  is  the  total  de¬ 
flection,  in  beam  axes,  in  the  direction  that  ruptured. 


4.  The  V^iii  vh^ch  defines  the  maximum  allowable  beam  de¬ 
flection  inHhe  1 ,n  direction.  This  is  an  input  constant. 
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If  a  control  volume  mass  penetration  occurs,  the  mass  which  penetrates  and 
the  time  are  printed  out.  At  the  end  cd  ;;he  run,  the  ruptures  and  mass 
penetrations  that  occurred  during  the  m  are  summarized  in  tables  for 
ready  reference. 

Sample  Case 

A  sample  31  mass  case  is  presented.  Figure  1 6  represents  the  input  data 
and  follows  tbe  User's  Guide  input  format  (Figure  l4).  The  representative 
output  for  one  time  period  is  shown  in  Figure  15  end  follows  the  format 
described  under  the  User's  Guide  output  format. 

Sample  output  plots  are  presented  in  Figures  17,  18,  and  19  for  the  engine 
vertical  velocity,  vertical  acceleration  and  vertical  mount  deflection 
respectively. 

Program  Listing 

A  complete  listing  of  the  computer  program  KRASH,  Including  subroutines, 
is  presented  in  Figure  20. 
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UPlICTT  REAt.*?  (A-H.O-Z)  CRSOOOIO 

PEA. *4  PL3TI  30CCOt.ZAR,T'HPLOT(500) 

DIMENSION  SCI  4C.3I,ZAK(200)  ,  I  PLOTII5C)  ,  I OPLOTIISJ  I 

DIMENSION  !GI  8C).JJ<  80),PHt!J(80>  ,THEtJ(80),PSnJ(80).WGT(43),  CRS00020 

1  X!(  40I.Y1  <4CI,Zt<  40),XY!(  40)  ,YZI(40)  ,XZt(43)  .^EX  140) ,  HFY  140  ).  CRS00030 

2  KPZI40I.AI  tET(40!  ,  XI  401 ,  Yl  4  01  »Z  (401  .  PH  I  J  40)  .THE  f  A  <40 1 .  PS  It  40 ) .  CRS00040 

3  J(  40),  VI  40)  ,4(40)  , P(  40)  ,3(40)  ,»(40)  ,XDOT(40>  ,Y001  (40) .  ZOOT  (40),  CRS00050 

'4  PHI  DOT  ( 401 ,  ThEOOTI  40)  ,PS1D0T(4  0)  ,UD0T(40)  ,VDOT  (40  )  ,WOOT  (40  )  CRS00060 

.0IMPNS13N  A  IJ  (  S),A!  (  9)  .AJt9i  .At  0t)T<9 1  ,DX(  40 )  ,DY  ( 40 1  ,DZ(40),  CRS00070 

1  DJH 1  (40),  0TH£TA(40  ),OPSI  (  40)  ,0(6) ,0F (51 ,XX(43) ,XY  (40),XZ{40>»  CRS03080 

2  X.<  40),XM(4C).XN(  40)  ,QEL!  (4  0)  ,Xtl (40)  ,X 1 2(43)  ,X13  (40) ,  CRS00090 

3  Xt4(40),XI5(40:,X16(40),XK<2880l  ,FMBARt2883)  ,F HBAR3 (5 , 6, 83 ) ,  CRS00100 

4  F.n(  2980).  XXR  |N(  10,  6,80)  ,VEE  (480)  ,VMAX I  4 80 ) ,NN( 40 ,3 > ,NN2 (40, 3)  CPSOOUO 
DIMENSION  XXI 2(9, 6,80), 81J(  360) ,CIJ(360t .01 JI723I ,X  (.BAR (40,3),  CRS00I20 

t  XX.  RAT  (  31  .  (  SP!40,3)  ,!I  SP(  3)  «XMU(4  0.3>  ,X  KE  (40 , 3  )  ,  CAI  (360),  CRS00130 

2  )3S  (40,  3),  I8S2(40,31 ,51(4  0,3)  ,SF(40,3I  ,FSPOF(43,3  I,  PHI  DP  (40),  CRS0C140 

3  THEOP(40I,PSIOP(40).FSPBAR(40,3)  .fSPBA?  (40,3 )  ,X LNGTH{3 ) , XC (6) ,  CRS00150 

4  XO’ t  40) .  YDP  (40),Z0P(40),FH3(6,6,B0I  ,VEE2  (6,80) ,  VFEDDT  (3,3)  CRS00160 

DIM*  NS  ION  POOI  (40),000t(40)  ,»00T(40I  ,M4B(3)  ,N3  (SO  ,6  )  ,OVS  IGNI6),  CRS00I70 

I  X<S(  43201,  XX  £31  9, 6. 801  ,XM  (4320)  (TITLE  (10)  CPS00180 

DIMENSION  XOLDI40),  YOIOI40)  ,Z0LD(40I  ,  PHI  0LDI40 ),  THEOl  0(40) ,  CRS0G190 

1  PS  IOLD  ( 40 ) , POL  0(40)  ,Q0L3(  40)  ,RPL0(40)  .UOLDI40)  ,  V0LDi40  I  •  WOL  0(40  >CRSU0200 
DIMENSION  XXX ( (01 .XXJi  80) ,XYK( 80) .XYJI80)  ,XZK(93) ,XZJ(BO I,  CRS00210 

1  X.<(80),XLJ(  CO)  ,X*K(  801  .XMJ(BO)  .XNKIBOI  ,XNJ(80)  CRS00220 

DIMENSION  3XIJ(80)»OYIJ(  SO)  ,021  J  (  80)  CRS00230 

01  MEN  SION  P  INI  401 ,3  INI  40)  .TIN  (4  01  «P!  NOI43I  ,  QI  N0(  40)  ,  RINCI40I  ,  CRS00230 

1  O3 IN (40) ,  00  INI  40)  ,0R(N(40)  CRS00240 

DIMENSION  00(6).OPX(40),OPY(40) ,0PZ(40) .DPI (40 > ,DPH (40) , DPN(40)  CRS00250 

01  HEN S ION  :(6,eOI,:RARIBO),OXOA(6,BO)  CRS00280 

DIMENSION  XACCI40),  YACCI40I  ,ZACC  (401 

DIMENSION  SUHOF(6.80I,TRU»T(80I  .IRUPTI80)  .JRUPTISO)  • 

DIMFNSIHN  TPENI80)  ,IPFN(80I 
DIMENSION  I JPR (761 
DIMENSION  A  I  TAJ!  9) 

DIMENSION  FSP0II40.3I  .  SA  ( 40  ,3  )•,  SB  (40,3) 

OIMEN  S  ION  DP.  1(761 
COMMON  OR  I 
C3"*M3N  FSP3 I , SA, SO 
COMMON  A  I  TAJ 

COMMON  XN34T , XPBAR, YNBAR , YPBAR, ZNBAR.ZPBAR ,YPEN 
COMMON  SIIMDF  ,  TPUPT  ,0  XOA  ,  S3 


COMMON  XACC. YACC.ZACC 
COMMON  C.C8AR 

COMMON  DO.DP  X,  DP  Y.OPZ  «DPt.  ,0  PH,D  PN 

COMMON  PIN.QIN.RD.'.PINO.OINO.RIHO.DPIN.DOIN.ORIN- 

COMMON  OXtJ.nviJ.OZ  I  J.ZG 

COMMON  XXX,XXJ.XYK,XYJ,X7.K«XZJ,XLK.XIJ.XHK,XMJ,KNX,XNJ 
COMMON  X3C0,  YOLO,  23LO,  PH  I  OLD,  THE  OLD,  PS  (010,  POLO,  OOLD,  ROLO,  UOIO. 
I  ;3l.D,W3LO,DT2,DTHAl.P, 

COMMON  PHI,  THE 7A ,P S I 

C3WM3N  81 J.PS(C3T,THE00T,PHI00T,C1 J.X.Y.Z.XI J,Yl J.ZIJ.O.OF 

COMMON  AI.A  lOOT.AJ.A!  J,0X.3Y,0Z  ,OPHJ  ,OTHETA,DPSI  .OVSIGN 

COMMON  VEF  ,FKBAR,FM,X*S  .XXI  ,VMAX 

COMMON  XX,  XY.  XZ.XL,  XH.XN.WJ  T  ,AU  FT.XC.P.Q  ,R.U.  V,W 

COMMON  IJD3T,  VDOT.VOOT.XZ!  ,YZI  ,ZI  .HFZ.X!  ,X  Y  !  .HEX  ,Y  l  ,HEY.  OEl  I 

COMMON  P03T.X!  1,  X  (2  ,  XI  3.033  T  ,  XI  5  ,X!  4  .ROOT  ,  X !  £  .XDOT  ,  Y  DOT  ,  ZOOT 

COMMON  XLBAS  ,SF,F  S°OF  tXKE  .FSPBAP  .XMU.VEEDOT 

COMMON  XGOOT, YGOOI.ZCOOI yPPR .OPR  ,PPP , PH  I  PR , THE  PR , PS  I  PR 

COMMON  PH  I  OP , THFOO.P  SIOP.XOP ,YOP .ZOP.OAI ,0FIT AT , T KAX ,TlMS,T!TlF 

COMMON  PHI  I  J , THE  I J, P  SI  I J ,XK .01 J , XXI  BAR , SI  . XLNGTH, IP 


CRS00290 
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CRS00320 

CRS00330 
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Figure  20,  Program  Listing 
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AWySWVVsw®: 

■  r  '•  ■■ 


■  \ .  "* » 


2'  -  ..  t 

F.-  72'  jul  ‘  ; 


It. Ill 

,11, 


C3NN3N  NS.I.J,  HAST,  I  TAB  I  j,  H ABB .  I JLI J. I JKLIJ.I JKK. ! Jl, IG. 

1  ITASD,  I J  <  L  .  tTA3U,!PR!NTf  I  TARLE.tLINES.NPR.lGS.USP.lSP. 

C3NS3N  KRU»T,  IRUPT.JRUPT 
C3MN3N  INO», IP£N,K»EN 
C3NS3N  IJPA 

03NN5N  PL3T .Z  AR.THPLOT ,t  PLOT «! OPLOT ,  I  PLSW .  I  PLC  .OPLOT  ,  NPLCT  .  ITPLOT 
EJUt  VALENCE  (  XKS!  It .  XKS3I 1.1.1)  >  .  (XK!  ( 1)  ,XKt3  (1 .1 . 1  )> . 

1  I  X<  R  IN !  1.  1,  n.EHBAfl  U).(  EMU  I.FR3U.1, 1)1,1  VEEUI.VEEZI 
E3U!  VALENCE  <  FP84»<  1 1  .FNBAR3  ( t ,  1  ,1 1 1  ,  t Nil  I  .N3  ( 1 , 1 1 1 ,  (NN <  1, 

1  NN2I  l.  l)).<f  S«BAm,n  >F  SPBA2  (1. 1)1, (IBSil.l), I  BS2C1.1I) 

IPLSW  «  . 

I7A3J0  »  : 

IT A06  «  S^ITARD 

1  CAL.  IN°UT 
IF  (NS  )  1000, 1CC0.2 

2  Of 2  *  2.0*0ELTAT 
OTHALF  «  ,5*0ELTAT 
1 1 A0L  l  *  IT48LE-1 
■UtPT  ■  0 
J»L3T  •  0 
XPEN*0 

C  126) 

03  130  I  •  l.N* 

xtim  ■  YU  I  >*ZlU)-VZtUl*VZtII) 
x 1 2 < i )  •  xYim*zim*x2iii )*vmi) 

XI3II)  «  XVU  I)*YZI(I)*YI(I)*X2I  (II 
XIA(t)  .  XK  I  !*YZM  I)*X2I(I)*XY1  (II 
XI5II)  «  XII  I  )*2K  I )  —  XZI  (I )  *XZt  ( I ) 

X !  6(  I  )  -  Xtm*YKI)-XYUI)*XYHI) 

130  OELI(I)  •  1.0/tXKl  )*X!1(  l  l  —  XYI  (I)*X12(I)  ~X2t  It)  *X  13  till 
C  CONFUTE  SL0»ES  AND  INTERCEPTS  OF  TABLE  LINE  SEGMENTS 
CALL  LINFS 
C  ZERO  ARRAYS 

Tisc  »  0.0 
NN9  •  9*NN 
03  1  AO  I  »  I.NM9 
1  AO  RIJ(  !  )  -  0.0 

03  150  I  «  l.NK 
OX ( I )  •  0*0 
OYf I )  •  0.0 
OZt  I  )  «  0.0 
0>HK  I)  *  0.0 
OTHFTAU  )  »  o.c 
0* S ! (  II  •  0.0 
XXII)  *  0.0 


JS,  IT  AS,  CRS00A30 
IBS.N.NNCRS00A90 


XY( 1  1  • 

xzm  • 
xun  « 
xsu )  > 
xn  1 1 1  - 
0*  X<  I  ) 
0>YI  I ) 
0»Z<  I  I 
O’LI  I  > 
OPSt  I  ) 
f)P  N  (  I  1 
0>  INI  I ) 
03  IN  < I ) 

oust  1 1 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
•  0.0 
*  0.0 
«  0.0 


CRSOOAIO 

CRS00420 

CRS00A30 

CRSOOAAO 

C  100530 
C  I.005A0 
C  1.00550 
C'-LOOABO 
CRS00560 
CRS00570 
CRS00600 


CRS00610 
CPS00620 
CRSC0630 
CR5006A0 
CPS00650 
CRS00660 
CRS00670 
CRS00680 
CRS00690 
CRSOO 700 
CRS00710 
CRS00720 
CRS00730 
CRS007A0 
CRS007S0 
CR500760 
CRS00770 
CRS00780 
CRS00790 
CRS00800 
CRS00810 
CRSOOB2C 
CRS00I30 
CRS008A0 
CRS00850 
CRS008&0 
CRS00870 
CRS00880 
CRS00890 
CRS00900 
CRS00910 
CRS00920 
CRS00930 
CRS009A0 
’ C*  S00950 
CRS00960 
CRS00970 
CRS00980 


XACCI  1  >>0.0 


Figure  20.  (Continued) 
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VACCI  IWO.C 
ZACCI  I)»0.0 

_ 03  150  K  «  1,3 _ _  ... 

IBS2I  t,X>  «  0 
NX2I  t.KI  «  0 
SCil.X)  •  0.0 
150  FSP3A2tl,K)  «  C.O 
03  1  60  I J  *  t  •  ICS 
_ XXXIIJ)  •  ,0.0  ..  „  . 

xxji  u:  -  o.o 

XVXIIJ)  *  o.o 
XV  J I  IJ!  •=  0.0 
XZX I  !J)  ■  0.0 
XI J< IJ)  «  0,0 

.  XLXIIJ)  *  0.0  . 

XL JI  IJ)  «  0.0 
XXXI ! J  )  «  0.0 
XXJI  IJ)  «  0.0 
XXXI  IJ)  »  0.0 

xxJim  »  c.o 

_ oxui  ij)  «  o.o _ : _ _ 

nruuj)  •  o.o 

OZIJI  IJ)  «  o.o 
03  1  60  L  *  1,6 
SiHOML, IJ)  «  c.o 
t3UJ,L)  -  0 

_ veezu.iji  *  c.o  _  . 

03  160  X  »  1,6 
EX3!l,X,IJI  -  C.O 
1*0  EX8AX 3(1, X,  IJ  )  -  0.0 
03  165  J  *  1,3 
03  1*3  X  •  1,3 

..  1*5  VEED3TIJ.K)  »  C.O  .  . 
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Y03T!  •  V03TJ  II 

Y03TUI  «  All  2)*VU*At  J 5)*W*AI{8)  *WW 
Z03VI  »  203  T(  II 

20371  1 1  «  AH  3)*00»AI(«i*W«Att9l*IM 
C  (281,(23) 

CS  •  S1/C2 
CC  •  C I/C2 

_  7M03TI  *  7*2007(1) 

AHI037U)  •  77«00*I  S*S2<*AA*CC*S2 
7H037I  »  THfOOTIII 
THf037(  1 1  -  QQACl-«A$l 
7S0'.7I  -  7SI007CI) 

7SI037UI  «  QO*CS*AA*CC 

C  OO  A 1007  MW  _ 

7  .  A5S00TC  J|*C2 

71  o  THF037U  |*51-7«f,l 

72  «  7M8D07!  I  |4Cl*74$l 

73  «  7MI007ni~7$J307(II»S2 
CIJIJMI,  -8IJ(J*AI»7l-9U(  J*7I*72 

_  .  C!J( J BUUUKTl+BlJ!  J»7)*T3  _  .  _ 

CIJCJ,7).  S!JIJ»ll*T2-«IJ(  J»4)*T3 
ClJ(j*2)»  -8 1 J  ( J*5I  *71— 8  I  J(  J> 81  *T2 
CIJ{J*»«  MJ(J»2)*Tl*8tJ(  J»8)*T3 
CIJU**)-  B(J(J»2)*T2-BtJI  J»S)  *73 
CUIJOI-  -8U«J**l*7l-BIj;  J,9)»T2 

.  CtJU**l«  6 1 J  ( JO)  *TI*B  I JI  J»9)  *73  —  _  .  ..  - 

Ct  J  ( J  ♦<)«  8  I J ( J*3I •T2-BI J(  J»6)  *73  ' 

lUUHt)  10-lC.S 

C  OAAKT  X.Y.J.AMt.THeYA.ASI,  r- 

5  XU)  ■  7T*XI  I  I  *f  T*(  XOtDt  I )  *DTHAL7*(  X0CT{  J I  *20071 1 1 
TUI  •  77*TU  |tF7*(  YOI.O(I»»OTMA(.7*(TOOTCI)«Tt)OTin 
_  _  2(1)  -  TT«2(  lME7«!20».0!mOTHAlF*f200Tt!)*®CTI»)  _ 

AMttt)  •  ?T*7M IC I  l*t  7*(8Kt  01011  )*0TMAtF*(  AW  007  (1  I  ♦7H00T  I)  ( 
THETA! !  I  «  TT*TH€TA  if  I  *{  T*(  TMEOIOI J1  ♦OTMALMCTHSOOT  I  IfATMOOT  1 1 ) 
ASIUI  •  TT*ASKII»S  T*{OS(3U)UI‘OTHAIFA(7SIOOTUI»7SOOTI)I 
C  CtfA*  THE  04HAING  7F*W$, 

9»X<  I  )  •  0.0 
0»Y(  I)  •  0.0 
0»iUI  3  0.0 
OAU  II  •  0.0 
0A1i  I )  •  0.0 
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CA503930 

CAS03940 

CAS03950 

CRSCS9A0 

CXS03970 

CRS03980 

CA 303 99Q 

CAS04000 

CAS040:o 

CR504020 

CR $04030 

CA $04044 

CAS04OS0 

CA $04040 

C# 5040 To 

CRS04080 

CA  $04090 

CAS  04 100 

CR504U0 

CASC4120 

0*504130 

CAS04140 

CAS04I50 

0X504140 

CAS 04 170 

CA  50*1  AO 

CAS04190 

CA $04200 

CAJ04210 

CRS0422Q 

MSA42M. 

CA $04240 

CAS 04290 

CA $04240 

CAS04270 

CA $04206 

CA  5 04240 

CA $04300 
CA  $04310 
CAS04320 
CAS04330 
CAS04340 
CASK-390 
CA $04340 
CA5043T0 
CAS04J80 
CA $04390 
CA504400 
CA$0334« 

C  A  $03390 
CASC3360 
CAS03370 
CAS03380 
CA  $03390 


■  WXTJiM*—4/A» 


_  *  »  <  ,JL 


^■*.1 


DRNI  II  •  0,0 
10  CONTINUE 

.C  03  1000  IS  MAIN  00  LOOP  TO  GET  TOTAL  INTERNAL  FORCES  ANO  MOMENTS 
HAST  «  0 
tTABIJ  -  - 1  TAB  t 
IJLIJ  «  0 
U<.  i  J  »  -36 
03  1000  IJ  «  l.IGS 
_  .  IJAL  t  J  *  IJKLIJ+36 
1JK<  «  I4KLIJ-4 
IJLIJ  «  IJLIJ*< 

IJl  »  IJLIJ 

1TABIJ  •  .ITASIJHT&86 

IFIIAMPSWIlJI.NE.Ot  GO  TO  1000 

1  •  IGIlJ) 

J  «  JG1IJ) 

C  IF  WF  GET  T3  A  NEW  I  WE  MUST  ROVE  (ATI  INTO  AI  AND  IAIOOTI  INTO 
IF(  t-  (LAST)  20.20,20 
20  tl  AST  -  I 
IS  •  9*(  T-l> 

07  320  KS  •  l.S 
IS  «  ISol 

AI07TIKSJ  ■  ClJf'.SI 
DA  I  ( <  S I  •  OAK  ISI-0I  JIISI 
320  AK<SI  «  BUI  IJl 
30  XI J  •  XIJI-XI  1 1 
YIJ  •  YUi-XIt 

2  IJ  -  21 J  1—2  I  I  I 
XIJ3  «  OXIJI  IJl 
VJJ3  -  OYIJI  IJl 

_  21 J3  •  02 IJl  I J  I 

OXIJI  IJl  •>  XIJ 
OYIJI  IJl  -  YIJ 
02  IJ!  IJl  -2  IJ 
C 

is  «  *«u-ii 
IJS  •  NFlU-ll 
03  310  KS  *  l.S 
.  IS  *  JS*1 
IJ S  •  IJS*1 
AIJUS1  -  OIJI  IJS) 

310  AJKSI  ■  9IJI  1  J) 

C  (A) 

Tl  •  0X1 J  1—0  Xt  1 1 
...  T2  «  OYIJI-OYI  I) 

T3  «  02  ( J 1-02  I  I) 

C  IS) 

T4»  All  1I*T1*AM2?*T2»AK3)  ‘T3-0AI II I  *XI  JO--OAI  (21  *VUO~0At  13 
T5«  A  I  I4l*Tl»A115l*T?*AI  (61  »TJ-OAI  (6 1  »XI  JO-OAI  H)*YUO-OAI  16 
Tfc*  A  II  7t*Tl«A  II  8 1*  T2  +  AI  I  9)  *TJ-OAI  (7>»XI  JO-OAI  U)  ‘YIJO-DAI  19 
0(1!  »  AIJI  l)*TA*AIJI2I«T5*AI  JI3I*T6 
0(21  *  AIJ(A)»TA*AUI5l»T?»*l  JI6I-T6 
0!  3!  •  A  !J  I  T|  •  T4.AI J  ISI»T5*AtJI9l*T6 

C  (91 

AI TAJ  11)  »  Al I  14PAJI I )*A( <21 *AJ(2I*A( (3I*AJI3) 

AI  TAJ  (2)  ■  AI(A)>*AJUI*AHSI*AJI2)»AII6)»AJI31  • 

AI  TAJ  1  3)  «  Aim«AJ(  1)*AI18I*AJ(2I*AU9I»AJ(3« 

Al  TAJ  I  A)  x  All  l)«AJtA)»AII2|*AJI5|TAH3)*A.JI6t 
Al  TAJ  (  5)  •  AICAl»AJ(Al»AII5l»AJ(5l*tI(S)*AJ(S' 
ft!  TAJ  (61  •  AIt7)*AJI4)»A:tB)*AJI5)*A«I9)*AJ5i| 


CRS04520 

CRS04530 

CRS04540 

CRS04S50 

CRS04560 

CRS04570 

CRS04580 

CRS04590 

CRS0A600 

CRS0A610 

CRS04620 

CRS04630 

CRS04640 
CRS04660 
A»OOT  CRS0A6T0 
CRS04680 
CRS04690 
CRS0470C 
CRS04710 
CRS04720 
CRS04730 
CRS04740 
CRS04750 
CRS04830 
CRS048I0 
CRS04S20 
CRS04830 
CRS04840 
CRS04850 
CRSC486Q 
CRS04870 
CRS04880 
CRS04830 
CRS 04900 
CRS04910 
CRS04920 
CRS04930 
CRS04940 
CRS04950 
CRS04960 
CRS04970 
CRS04980 
CRS04990 
CRS05000 
CRS05010 
1*2  IJOCRS05020 
1*2  UCCRS05030 
)®2  U0CRS05040 
CKS03050 
CRS05060 
CRS05070 
C*  SOS  I 50 
CR  SOS  160 
CR  SOS 1 70 
CR  SOS  180 
CRSCS190 
CPS05200 
CRS052i0 
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A1  TAJ  I  T  i  •  AI{  l)*AJt  7|4A!(2)*AJ{8)4AI(33*AJ(9) 

AI TAJ  1 3)  »  AI(4l*AJt7)+A!(5)*AJfe)*Al<6)*AJ(93 
At  TAJ  ( 93  •  AI(7I*AJ171*A1(8)*AJ{8)*AI(9)*AJ(9) 

tj  »  fifHNu; 

T2  «  0QIN1J3 
T3  •  ORIWJ  3 

T4  •  U*AITAJ|  :)*T2*AlTAJ(Af  +  T3»/’*TAJt7)-DPtNtI} 
T5  •  Tl*A»TAJ«Si*-T2*AITAJ(5l*T3*AITAJI8;-003N{T> 
T6  «  Tl*AITAJ(2)*T2*AITAJ(61*T3*AITAJ(9)-ORIN(I3 

C  (9R  3 

0(41  *  A!J(  l)*14*AJ  J(2)TTS«A5  J(3»*T6 
0(41  «  A  !J(  4I*T4*4(J(  5)*T5fAI  J!63*T6 
0(61  •  AfJ(  7)*74*Af  J(8)*TS»Al  J(9S*T6 
Tl  •  OtJ) 

T2  •  V(J) 

T3  »  WiJ3 

T4  »  T1«A(TAJ(  1)TT2*A!  TAJ(4S- TJ*AI  TAJ(7>-U(J) 

T4  «  T1«AITAJ(  2)*T2*At  TAJ(53*T3*A!TAJ(S)-VU3 

T6  *  Tl*AITAJ(3)*r2»A'TAJ(61»T3*AITAJ(93-W(J) 
00(13  «  T4*AIJ(1WT5*A!J(2)  +  ?6«A1J(31 
00t2l  «  T4*AIJ(41*T5»AIJ(5>  *T6*A 1 JI6) 

01(3)  •  T4*A1J(73*TS*A1J(83  +  T6»AIJ(9) 

Tl  *  P ( J  3 
T2  »  0(J) 

T3  •  R  ( J  3 

T4  «  Tl«AITAJ(  13tT2*AITAJ(43  +  T3*AITAJ!73-P(IJ 
T5  ‘  T1*A1TAJ(23*T2*A(TAJ(53*  T3*AI  TAJ!  Si  -01 1) 

T  6  *  T1»A[TAJ(33*T2*A1TAJ(63tTA  *AT  TAJI93  “R  ( 1 3 
00(4)  '  T4*AIJ(l)*T5*AIJ(23AT6*At  J(3) 

00(53  «  T4*AlJ(4l»T3*A!J(S3*T6*At J(63 
00(63  •  T4»AIJ(7I*T5*AIJ'(834T$*AIJ(93 
03  270  K  »  l,  ft 
270  (30(13  »  C(Rc  !J  1*00(<0 
C  FORM  VECTOR  3f  (  i  1.0  TO  USE  IK  A8S(VPIJ13 
03  360  R  «  1,6 
|F(0«K)1  370,310,380 
370  DVSlGNlR  I  «  -1.0 
CO  T3  360 

380  DVSIGNIR!  «  l.C 
360  C3KT!NUC 

03  150  K  •  1,6 

IIAB  -  I  T43  I  J—  ( TA6D 

IJRR  •  T  JKR  *6 

tjKt  »  IJRR 

IJL  •  1JL-6 

OF(A)  *  0.0 

03  ISO  L  >  1,6 

I  TAB  »  1  TA3  ♦!  TA6D  , 

(JKl  »  3JF.H-1 
IJL  *  IJIM 
_  .  7  •  XXI  1JXL 3 

»F  ( T )  160, 150,  160 
C  THIS  GFTS  A3S(  VP (  IJU! 

160  V>  *  OVSIGVIL  3»(VEE(  1JU-FKBAR(I  JKU) 

(F(V*  I  1 70,  21 C ,210 
C  51CNS  V3T  SAKE 

170  ls(9(  Ml  33  18C, 180.190 

150  *1(  IJl  3  «  l  * 

T40A»(IJKl)  c  VEEII  Jll-FHM  JK13/T 
190  OElFR  »  T*0(l  1 


CRSG5220 
CRS05230 
CRS05240 
CRS05250 
CRSC5260 
CRS05270 
CRS05280 
CRS05290 
CRS05300 
CR SOS  3 10 
CRS0S320 
CRS05330 
CRS0S340 
CRS0S3V0 
CRS054U0 
CRS05*10 
CRS05420 
CRS05430 
CRS05440 
CRS05450 
CRS05460 
CRS05470 
CRS05480 
CRS05490 
CRS05500 
CRS05510 
CRS05520 
CRS05530 
CRS0S540 
CRS05550 
CRS05S60 
CRS05570 

CRS05590 
CRS05600 
CRS05G10 
CRS05620 
CRS0S630 
CRS05640 
CRS05650 
CRS05660 
CRS05670 
CRS05680 
CRSC5690 
CRS05700 
CRS05710 
CRS05740 
CRS05750 
CRS0S760 
CRS05770 
CRS05810 
CRSC5820 
CRS05830 
CR SOS 8*0 
CRS05890 
CRS05900 
CRS05910 
CRS05920 
CRS05930 
CRS05980 
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63  T3  220 
C  SI6MS  THE  SAME 

_ 219  MUJU  -  0  . _ _  .  „ 

11  «  ( VF*OXDAI  L.I  J)  I  /DXDAIL  «!  J) 

C  CIA«P  II  SETMEEM  1  AMO  I  VAOlE-l 
IHI!-1>  211. 215.213 
211  II  •  1 
<3  T3  215 

._  213  IHn-lfASt.lt  215,215,214 

214  11  *  ITAStl 

215  II  •  I  !♦! TAB 

D51FN  >  .IXKSI  t!>*VX9XKmtll*?«0<U 
220  FMItJKO  •  F(M  IJKt)4f)ELFM 
DF(<  1  »  Oft  X  i  ♦0E1.PM 
150  C3MTINUE 

03  630  X  o  l.t 

630  JUMOHK.IJI  <•  JIKOFIX, 1210*1X1 
IJL  •  1JL-6 
03  2  30  L  ■  1,4 
131  •  141*1 

_  T  «  VEEI tJl 1*0(11 

VEEC  (Jit  «  T 

C  MOVE  OF  TO  0  FOX  1131  ETC. 

CtLl  »  OFUI 
IFITI  240.250,250 
240  T  -  -T 

_  259  1FIT-VHAXUJ1 11. 230*260.240  _ 

2*0  HU»SVIIJt  -  1 

XXII  1  -  XXI 1  l->W(IJ) 

xrni  -  xvi  il-miui 
x2i 1 1  •  xii  n-xiKiiJi 
xLin  «  xim->ixitj> 

_  XXIII  «  XMi  I  >-W*K(  I  J) 

XVI!  I  «  XNI  !»-XKKlIJl 
XXUI  ■  XXlJI-XXJIt  Jl 
XVMt  «  XVC  J  t->VJ(  I  J 1 
XZtJl  •  MIJl-MJIt  J) 

XL  I J  )  «  XLiJ»->LJUJ) 

_ XMt  J  )  «  X3(  J  1— WtJC  I J  I 

XMIJJ  •  WICJI-WJllJt 
KXUFT  »  XXiPT‘1 
I*U»T(XAUt»TJ  -  t 
JA1PT(XXUFTJ  -  J 
TAUPT (KXUFT  t  »  TIME 

- FA  ITT  1040,  IJ.I.VEEtIJl)  « VMAXC I  J!3  .  . 

1040  F3*-«ATUHl*XUFTUtE  •  2!  5.1P2E15.6I 
GO  TO  1000 
230  CONTINUE 

IF  i  IJMI  IJt.NE.O)  OtnUJI  »-6.5500*VEEMJL-5» 


AIAIJT(l)  •  A5U)*45Jtli*At  <41 «A 14(2 1 *A!( 7) *Al JC3 I 
..  At  At  J  714}  •  At(l)«AI  JI4t*Al(4l*AI 4151*61  (T)*AIJ(»i 
A1AIJTI71  *  AI(ll*AI  4<7t*AI  (4) *A 1 4(8 1 »AI (71 *A!4f ? 1 
AIAMTI2)  •  Al<2)«4i4UI*AI(51>AI4t2)»A!<8)*a!4f3f 
AtAIJTtS)  •  A  I(21*AI J(4)*At I5t*AI J151.AI (8>*AtJ(it 
AIAIIT(S)  *  AM2I*A<J(7)*AI  (53*A  1415101(81*414(91 
AlAtJTtll  •  41(31*414(11**1  <*l*A14(2l*Al(9|«AI40l 
.  AIAMT16)  .  AII01*At  JI4l*Al  (6I*A 14(5 t» A| (9) *A 141$ I 
A14tJT<91  «  At(31*4  14(  7l.4M6>*AI4<Sl*A(  C9)*AI4(91 
U3A) 

Tl  •  AtAIJM  xl*C<  1)  *A!31Jf<4)  *0121*4141  47171*0(31 


Figure  20.  (Continued) 


CX $05490 
CAS06003 
CXS04010 
CXS06020 
CX  $06030 
CSS06040 
CXS06050 
CXS06060 
CXS06070 
CR $04080 
CX  $06090 
CXS06100 
CX.S06150 
CXS06160 
CXS06200 


CXSC4210 
CXS04220 
CR504230 
CXSC6240 
CXJC6250 
CXS06260 
CX  $06270 
CXS062B0 
CX  $06240 
CM  SO* 300 

CXS06320 
CXSC6330 
CX 5 04 340 
CXS06350 
CRS06360 
CAS04370 
CXSO63X0 
CX  $0*390 
CXS06400 
CF.S06410 
CXS06420 
CXS064J0 


CX $0*590 
CXS06400 

vif  $04640 
CX504650 
CXS06660 
CXS06670 
CXS066S0 
CXS06640 
CXS06700 
CXS06710 
C*  SC6T20 
CP $06730 
C*  $06  7*0 
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T2  «  AU:jT(2>*0!l)*A!A!jTI5)*ei2>*AI*t4T(«>»0C3) 
rj  •  AlAUTt  3)«m)*AIAI  JTI  6)*0(2>»AIAI  JT(9)»D(3) 

.  Of  1  >  -  T 1 

Ot  2?  »  T2 
013)  «  T3 
C  (136) 

T1  *  AIAtJTm*)I*)«AHI  JTt*)»0(5)*AIA!  JTI7>»0(${ 

T2  *  AIAtJT(2)90(*)*AIAIJ7t5)*Q(5)*AfAIjTI8>*0(6) 

T 3  »  At4!jT(3)*9(*)«AfAtJT(6)*Ot5>*AIAljT(9)*D(&) 
Oi*i  •*  Tl 
C(5!  *  T2 
0(6)  *  T3 
C  C17AI 

oxx  •  ~!Aju)«n(n«A j<2>*o(2>*Ajt‘3>*cm) 

OXY  •  -lAJt  AI»0(n»AJ(5)*0(2)»AJI6)*0(3)) 

0X2  -  -(AJt?)*D(l)*Aj(a)»0t2>*6J(9)*O!S)) 

XX  (J)  «■  XX(J)*&XX 
XT(J)  «  XY(  J  I  ♦OXY 
HlJl  «  XZU)*CXZ 
XXJI  IJ  I  •  XXJ(  IJ)*OXX 

_  XYJiU)  *  XYJlIJj+QXY 

XZJl  IJ)  «  XZJl  IJI»0X2 
C  1176) 

DXL  »  -(AJ1  l)*0m»AJ<2)»3(S)*AJt3)*D(6>) 

0X9  *  -tAJ(*)*0{*>*AJ(5|60($>»AJI6>*CI(S)) 

0X9  •  -£AJ(  7>*C(*)«AJi8t*3t5>»AJ|9)*D($)> 

XL  ( J  )  «  XUJMOXL  ,  j 

X9(J)  «  XX(JI*OXX 
X9 1 J  )  «  XN(J)*CXN 
XL  J(  IJ)  •  XL  J  (  1JIOXL 
—  X9juji  -  xHj((j)»nxn 

X9 J (  1 J  )  «  XXJUJtOXX 
I*  «IJP*.(  IJl.SC.l)  CO  TO  700 
C  (1*9) 

01*)  «  0(*!-ZU*0(2)»Y)J*0(  3) 

0(5)  •  0(51  *2 l J*0(  1  )-X!  J«0(  31 
0(6)  »  0(  61-YI  J*0(  H«Xt  J*0(2) 

C  fl&A) 

OXX  *  At(l)*D(l)*A!(2)«0(2)*AI(3)*013) 

OXY  •  AI(*)*0(  !)«AI(  5(«Q(2)»AI(6)«0!3) 

Oxi  •  it(7)»0Il)«*((S)*0(2)»AH9)*0(3) 

KXUI  «  XX(tl*OXX 
XYt  1  )  •  XY(  I  )  fQXY 
XZIt)  ■  «(  I)  *0X2 
XXM  IJ!  •  XXXC  1JI*0XX 
XYX(  IJ)  »  XYM  IJI»BXV 

xzm  :j)  •  x2x (  u)*o xi 
C  (168)  , 

0X1  •  AI(1)*0(*)»A1(2)*0(SI*A<(3)*0(*I 
OX*  «  AI(*)*0(*)*AI(  5)  *C  (  5)  *A2  (6)  *0(6) 

0X9  *  A|(7)*0(*>»AI<  8t*0(S)«Al(9)«OI6i 

XL  ( I  5  «  XL (  I  >  *RXL 

X4{  I  I  •  XX!  I  1*0 XX 

X9(i!  •  X9(  I)*0X9 

XL  X  (  I J  I  •  XL*  (  IJ!»OXL 

X9*(  IJ|  o  XXK  (  I  J)  *0  XX  •  • 

X9X ( I J  )  •  XNKC  )J)OXN 

C  (6A) 

700  OST  IHUS 

Tl  •  AlAfjT(l)  «I)0{  tJ*A)AljT(4)*0D(2)*AIAIJT[7)  *00  (3  ) 


CX  $06750 

CXS06760 

CRS067TO 

CS $06780 

CX 506 790 

CAS0680Q 

CXS06C10 

CA506820 

CXX06830 

CD $068*0 

C5»S  06850 

C« $06860 

CXS06870 

CKS06880 

CX 5 06 890 

CX $06900 

CRS06910 

CKS06920 

CXSG6930 

CX £869*0 

CAS  0*950 

CKS0696C 

CAS06970 

CX306980 

CKSO6990 

CXS07000 

CASC7Q10 

CXS07020 

CX  SOT 050  . 

CXSC7990 

CX50705S- 

CXS0T060 

CX$071*0 

casor iso 

CXS07140 

CRS0?170 

CXS0/180 

CKS07190 

CRS07200 

CRS07210 

CX  $07220 

CX $07230 

C&S0724O 

CXS07250 

CX 5 07260  .. 

CAS07270 

CX  $072*0  • 

CXS07290 

CXS073CC 

CXS07310 

CXS07329 

CX507330 

CX $073*0 

CXS07350 

CP.  SO?  360 

CXS07370 

CX $07**0 

CX507*50 
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T2  •  AIAIJT(2)*OD(li*AtA!JT(5!*D!>(2)4A!  A)  JT(81*0D(3! 
T3  •  AIAIJM3)  *00  (  l)+AIAIJT(6)»Dt)(2)*AIAIJT(J)  *00 1 2  > 

_  oom  «  n 

00(2)  «  T2 
00(3)  •  T3 

C  (66) 

T1  •  A  1A  (JT  (  I  )  *001  4)  *A1  Al  JT 1 4)  •DD(5)*AIAIJT(T)  *DD  (6 ) 
T2  •  AtAJJT(2)*00<4)»AtAIJM5)*D0(5)*AtAI  JT(BI*00(6) 
T3  •  AUUT!  J)*0O(4)4A1A1  JT(6) *00(5) *41  A!  jr(9l*0D(6) 
00(4)  «  Tl 
00(5)  •  T2 
00(6)  «  TJ 

C  (9A) 

OXX  c  -(AJ( 1!*00( 1)*AJ(2)*30(2)»AJ(3!*00(3)) 

OXY  *  -( AJ(  4)  *P0<  1)*AJ(SI»3012)*AJ(6)  *00(3 ) ) 

OXZ  >.  — ( AJ!  7 )  »00(  1)*AJ(8)«30I2)»AJ(9)  *00(31 ) 

DPX(J)  *  0*X(J)«0XX 
OPY(J  )  «  OPY(  J)+OXY 
0»Z(J  )  »  OPZ(J>«0« 

C  (98) 

OXL  «  — ( AJ(  1 )  *C0(  4)  ♦AJl  2 1  *30(  51*  AJC3 )  *00(6 ) ) 

OX*  •  -( AJ ( 4 )  *C0(  4)*AJ(5)*30(5)'*AJ(6)*00(6)) 

OXN  »  -(AJ!  7)  *00(4)  *Aj(  8!«70{5:*AJ(9)  *00(6) ) 

0»l(J>  •  OPl(  J)»5XL 
n»H(j )  *  out  jmoxn 

D»N(J>  *  OPNUMOXS 

(7  t  IJPR(  IJS.EC.l)  .GO  TO  1000 

C  (7) 

00(4)  «•  00(  4)-21J'flO(2)»Y7J»DO!i) 

00(3V  «  OOC  5)*21J*P0C1)-X1J*D0(3) 

00(61  •  C0(6)-Y:.*»30{1)*X1J*00(2)  .. 

C  (*A) 

OXX  *  A!fl)*0O(t)*Alt  2)*00(  2  )»A|  (3)  *00(3) 

OXY  •  AM4!*D0(1I*4I  (S)P0O(2)*Al  (6>*D0n* 

0X2  •  AMT)  *00(1)  *4!  ( 8)  *001  2 1  ♦*!  (9)  *00(3 ) 

0P  .X1  t  )  -  OP  X(  I  ><OXX 

a*v(  n  •  opv(  i  )*oxy 

fr»2(  I)  «  0P2 (  1  )®OXZ 

_C.  (68) 

OXS.  •  AMl)«00(4)*AI(2>*00(5l*6tf3l*MM6/ 

0X9  •  AM4)«00(4)»A!(5)*00(5)*A!  (6I*D0I»I 
OXY  •  AM  7)  *00(  4)  »A  1(6)  *00 (  5)  *AI  (91  *00(6 ) 

CHI  t)  *  0»U  t)*OXl. 

OP\c ! )  *  opn(  i  ;*or« 

..  .  .  0*N(  t  )  «  3PN1  (  )*OXN 

,000  C3NT IMUE 

:s*9»(  i«o»-i> 

o;  ioio  xs»  1.5  » 

:s» i s ♦  l 

1010  AP«<S)»BlJt  IS) 

C  FINISH  CONFUTING  DERIVATIVES 
03  2000  I  •  l.M 
(S  «  9*?  I-D 
03  330  KS  •  1.5 
(S  "  (S*l 

AI03TUSI  *  CIJ(IS) 

330  AIMS)  =  6  I J  t  15) 

C  00  C»*SH  fC»C£S 
CAM.  C73ACF 
C  (20).  (23). '24) 


CKS07460 
CRS07470 
CR $07480 
CAS07490 
CPSO75C0 
CPS0T510 
CRS0T520 
CRS0753G 
CRS07540 
CRS07550 
CRS07560 
CRS07570 
CRS07560 
CRS07590 
CPS07600 
CRS07610 
CRS07620 
CRS07630 
CRS07640 
CRSC76I0 
CPS07690 
CRS07700 
CPS07710 
CRSG7720 
CP  507730 
CRS07740 

CPS07780 

CPS0T790  • 

CRS 07800 

CAS07610 

CPS0T820 

C*  S07830 

CPS07840 

CAS07850 

CRS07860 

CRS07870 

C«S07880 

CRS0T920 

CAS07430 

C*  S07940 

CRS07950 

CRS07960 

CPS0T970 

CASCT980 

CRS08020  . 


CRS08030 
CRS  06  040 
CR308050 
CRSC8060 
C*S08070 
CR  506060 
CRS03090 
C« SOB  100 
CRS06U0 
CR SOft 120 


Figure  20.  (Continued.) 
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"V#  '1’  ^  JVWfffP  • 


^MBSS^WWWBB^IBBIWH — i-iin-1  r  nr  i  uni 


X*  •  HGTtn-AL  !e7(  I  i 
SX  *  XXIi  )«-X6P»l(3)«XCU!OPX(I  I 
SY  «  XY(  1  )»XAPA|16)*XC(2IOPY(I  I 
SI  *  X2I  1  >*ZA»AM9)»XCC3IOP2<n 
St  •  XL (  inXCl  «l*OHtl » 

$Y  »  XM(  l  )*XC  I  l ) 

SY  *  XN<  lt»XCUI«&<‘K(t> 

C  GET  P.O.ft.U.V.W 


uu  «  urn 


VGTI  « 
2«  »  39 
XACCI  U 
YACC (  I  1 
ZACCt  !  t 


•  1.0/WG1C) 
386.0*WCTt 
H  «  SX»l>GTt 
II  «  SY*MG7l 
It  «  SZ»vGri 

»  U07T1  n 


U33TI  It  «  SX«2P-33*WW*«R*V7 
V331  I  •  V03TI  I  I 
VOGT!  It  «  SY»7P-RR«UU*PF*WW 
WOJTI  «  V03TI  I  ! 

MOOT (  I )  «  SZ*ZH-PP»VV«00»UJ 

(26) 

T 1  •  -XZ  I !  1  I  *P°-YZI  I  I  1*00*2  I  III  *RR*H£ZI  T  5 
7 2  «  xnn*pp->vnn»g9-xzi  (n»x**HExin 
T3  «  -XYK  I  )*PP*Ytm*3Q-'VttUt*PP.*KEYCn 
SL  *  St-OOMTl+PttMTT 
S3  «  SK-PR*72*PP*Tl 
SY  *  SY-PP*! 3*00*72 

125)  l 

Oft  «  DEL  1 1  I  I 
P03TI  «  POOYI  I  t 

pomtn  ■  OEt»(st*xi  in  )->s3»xi2i  i>HN*xn  in  i 
oonrt  •  003 t i  i t 

0037111  »  OFl*($t*X!2!n*S<«*Xl5(n*SH*Xl*It)> 

R03M  f!  RD3d  I  y 

aoOTtn  *  0rL*(Sl*Xl3m*S*»*X!'»in*SN*XlS([l> 

IF(Tl3fc)  2000.  2003.  300 

300  U(  it  «  TT«U(  I  t*ET«IOCt'''II)fOTHAtP»lUOOTU)*OOOTU  ) 

VII)  •  TT*V1  I  )  <ET*l  yCLOC  I)*OTKALF*(VOr)Tm*VPUTI )  )  ‘ 

Win  •  TT*ti(  i  )»ET«(  KfLOI  tt»DTh»(.F»iMOOTI  I  )»WDOTl  I  1 
Pill  «  TT«»  !  I  !  *FT«(POlO(I  ;*CTHAtF*<PD0T5I  )  »  FOOT  I  )  ) 

Q<!)  *  TT*0(  I  :<rT*-(00>.0<  I  )»0,fHAlT*l000T  1 1  I.GDOn  )  t 

J(M  »  TT«T  t  I  !  «FT*(  PPLOrt  )*OTM*i  F*tRDCT(  I  )  *PDOTI )  ) 

PIYIIt  •  TT»P  IM  I  t*E  T«(PI  MJl  I  )«nTKALF»(P[  >  t  *  POLO  I  It  )  J 

01  Yt  1  )  *  T1*OIHIM*ET*I01NOIIl»OT«AlE»!OCl  I  *  GOLD  I  tit) 

*  IYI  !  >  »  TT»R  in;  |)*f  T*l»  I.VOI  I  )  +  OTrUtP*(R(  I  )»ROLO!  I !)  I 

IF  I  (  IPFYSMI  :  )  ,NE  .01  -OP.  tl.FO.IsrPl.CR.  II  NOP.fC.Ot  I  GO  TO  2030 

239  7*01.  V0I.L3E  »S*F  TRAIION  CAICOLATI  DXS 


CRS08 130 
cssoeiAo 
CP  SOS  150 

crsosko 

CRSC8170 
CSS08190 
CP  5 09 100 
CRS0820C 
CP  SOS  210 
CRS08220 
CRS08230 
CRSO82*0 
CRS08250 
CRS08260 
CRS08270 


CPS08290 

CRS0330C 

CRSC8310 

CRS08320 

CRS08J30 

CRS083A0 

CP.SC8350 

CP  SOS  360 

CRSO83Y0 

CPS 083*0 

CRS00390 

CPSOBAOO" 

CRSOBA10 

CSS08A2C 

CRS06*30 

CRS06AA0 

CSS08S50 

CRSC8A60 

C*S06A70 

CPS  08 ACO 

CRSC6A9G 

CRSC8500 

C*  SO* 600 

CRS  06  5  50 

CRSC6SA3 

CPSO65S0 

C*  SC656C 

C* SOS  5*0 

CRS06S80 

CRSCS670 

CRS0S680 

C»  SG8690 


f  3 

S  3 

j  ^ 


1 


Toj.XI  I  l-X!  IN‘JP  ) 

T»2»  Y!  H-YI  I‘JC-0) 

TP  3«  2  I  I  t-ZI  INRP) 

XP  I««°m*TPJ  *AP(2t»TP2«API  3'  »TF3 


■Tjr.  w#  wjijwm 


C9»««V. 


!•  .*  f  ■• 


(  /  f,  -  **  ■ 

4  * 


YP!«AP(4)*TPl*AP(5)*TP2*APt6J*TP3 
ZPt«AP(T)*TPl*AP(  8)  *  TP2*API  9) »TP3  ' 

,  _  .  IF  <(-XNBAR.GT.XP!).aR.tXPl.GT.XPBAR))  GO  TO  2330 
IF  (<-VNaAR.GT.YPl).0R.(  VPt  .GT.YPBARI)  GO  TO  2530 
IF  (I-ZN8AR.GT,ZPn.0R.tZPi.GT.ZPBAR|>  GO  TO  2330 
XPFN«KPF.N*1 
1PFN(KPEN)*I 
TPENIKPENl-TIME 
IPEYSWin»l 
PRINT  I0e0,  I,  TIME 

1080  FDRMATUH0,  •  CCNTI0L  VOLUME  PENETRATED  BY  MASS  '.IZ,5,  T  JME“* » 
l  F10. 5)' 

2000  CONTINUE 
PETURN 

end  j___ 

SUBROUTINE  DO  A 15 
IMPLICIT  REAL*!  (A-H,0-Z! 

REALM  PLOT!  3OC00! » Z AR  .TMPLOTI JOOI 

DIMENSION  sri  4C,3),ZAR(2U0)  .IPL0TI1501  ,IOPLOT(153) 

dimension  igi  scj.jgi soi.phi  i jiao i ,thei jiaoi .psiijiboi.mgtiaoi, 

1  XIMOI.YK  AO  1.2 1<  401  ,XYt(  AO)  ,YZIt40>  ,X2t  (43)  .HEX  ( 401 ,  HEY  140 >, 

2  HE2(40),ALIFT(40)  ,X<  40T,Y(40)  .2(40)  .PHI  140)  .THETA  (40) ,  PS  1 140), 

3  U(40),V(40)»M40)  ,P(  40),  3(40)  .R(40)  .XD0T(43)  ,TD0T  (45 ; ,  100T  140  ). 

4  PHI  00T(  40 1 »  TFEOOT  (  40)  ,P3t  DOT (  40)  (.UDOT  (40 )  .VDOT  (40)  .HOOT  (40) 
DIMENSION  AIJtSI.AI  (N),AJ(9).AID0T(9)  ,DX(40)  ,0Y  (40 )  .  D2I40)  , 

1  0’KI(40),DTHFTM40),OPSI(40)  ,DI6t  ,DF(6)  ,XX(40)  ,XY  (40)  »XZI40  ). 

7.  XL(40).XM(40),XS(40)  , DELI  (40)  , XI  l ( 40)  ,X I  2  (40 )  .X 13  (40 ! . 

3  XI4( 40) ,  XI 5( 40) ,XI 6(40) ,XK(2830) ,FHBAR(2880) ,FMBAR3(6.6,80 ( , 

4  FM (  2880). XXR IN! 10,6,80) ,VEE(4  80> ,VMAX 1 48U ) , NNI40 ,3 ) .NN2C40, 3) 
DIMENSION  X*.  I  3(9,6,80!  ,8(Ji360)  ,CI  JI363)  ,  01  J(  T25 1  .XLBAR  (40,3 ) , 

1  XXL  OAR  (3),  ISP(40,3),nSP(3),XMU(40,3)  ,XXE(40,3)  ,  CAI  (360)  , 

2  IBS (40, 3),  18 <2(40, 31, SI  (4 0,3)  ,  SF (40.3). FSPOF (45.3)  .PHI0PC40). 

3  THE  OP  (  40)  .PSI0PI40)  .FSP8AR  (40,3)  .FSP8A2  (40,3 )  .XLNCTHI3  )  ,XC  (6) , 

4  XOP  (  40) ,  YOP  (  40)  ,20P<  40)  ,FM3(6  ,6,80)  ,VEE2  (6,85)  .VEEDOT  (3,  3) 
DIMENSION  POQT(40t.O0OT(4O)  ,PDOT(40)  ,N(4R0)  ,N3  ( 93  ,6 ) .  OVS  !0N(6  ), 

1  X<S(  4320).  XX  <3(9,6,801  .XKII432  0)  .TITLE!  10) 

OIMFNSION  XOLO (401 ,  YOLDI 4i>)  ,20LC(40)  ,PHIOLO(43)  ,ThE0L0(40) , 

I  P5lOLO(40).PCLO(40).OOLO(40l  .R0LDI40)  .UOIOI40!  ,  VOL0I40  )  ,HOL  0(40 
OIMFNSION  XXKI  101  ,XXJ(  BO)  ,XYM80>  .XYJ(BO)  ,X2X(83)  .X2JI80). 

1  XLK  (  80) «  XL  J (  10)  ,XMX(  80)  »XMJ(80)  .XNM80)  .XNJI83) 

OIMFNSION  OXIJIROI.UYIJIBOI  .021  J(80) 

DIMENSION  P  IN (  40)  .3 1 Nt 40)  ,R  1 NJ40)  .PINOI40)  , Ot N0S40) , RINO  (40) , 

1  OP  IN ( 40) , OQ IN(40) ,DRIN(40)  , 

DIMENSION  SINCCSI6) 

DIMENSION  0016),0PX(40(,0PY(40)  ,DP2(40)  .0PLC40)  ,DPHC40i  ,  0PNI40) 

01  MENS  ION  XItJ(3),PRU0(91,XTH0L0(9.2),XY2IJH9).XY2IJJ(9) 
DIMENSION  CI6,E0),CBAR(80)  ,DXOA  (6,80) 

DIMENSION  XK3S  6,6,80) 

DIMENSION  XACC(40)»YACC(40)  ,2ACC(40) 

DIMENSION  SUMOFI  6,80)  .TRUPTI  80)  .IRUPTfBO)  .JPUPT(BO) 

OIMENSION  TPEN  I  80) ,  I  PFNI  80) 

OIMFNSION  IJPRI76) 

DIMENSION  A1TAJI9) 

DIMENSION  F  SPO  1 1  40,  3 )  .  SA  ( 40  ,3)  ,SB  140 ,3) 

OIMENSION  ORM  76) 

COMMON  OR  I 
COMMON  FSPO  1  ,  SA.SB 
COMMON  A  I  TAJ 

C3»M3N  XNBAR ,  XPBAR, YN8AR , YPBAR, ZNBAR,ZP8AR ,TPEN 
COMMON  SUMDF,  TRUP T,D XDA ,  SC 
COMMON  XACC, YACC.2ACC 
COMMON  C.CBAR 

COMMON  OO.OPX.CPY.OPZ.OPt.OPM.DPN 

COMMON  PIN.OIN  ,RIN,P!NQ,OtNO.RINO,OPIN,OQtN,ORIN 

C3“M0N  nX!J,OYIJ,OZ(J,ZG 

COMMON  XXK.XXJ,XYK,XYJ,XZK,XZJ,XLK,XLJ,XHK,X.MJ»XNX,XNJ  ' 

COMMON  XOLD ,  YOLu, ZOLC « PH  I  OLD,  THF  OLD,  PS1  OLD,  POLC,  OOLD,  ROLO.UOLO, 

)  VOL  O.KOLO  ,  OT 5,0 TH A  LF 
COMMON  PHI,  THETA.PS) 

COMMON  81  J.PSIDOT.THFnOT.P-ilOnT  ,C  i  J.X,  Y  ,7  ,X  I J  ,YI  J  ,  1 1  J,  0,  OF 
COMMON  AS, A  lOOT.AJ.AI  J,0X,3V.DZ,DPHI  .DTHETA.DPSI  .OVSIGN 
COMMON  VSE  ,FM0AR,FM,XKS,XM!  .VHAX 

COMMON  XX.XY, XZ.XL, XH.XN.WOT.ALI FT,XC,P,0,R,U,V.H 
COMMON  UOOT.VnCT.HOPT.XZI  .YZt  ,Z!  .HFZ.Xi  ,XY!  ,HCX,Y  I  , HEY, DELI 
COMMON  P03T.XI  1,  X!2  .  XI 3, 030 1  ,X!  5  ,XI  4  >PI)OT  ,Xlb  iXOOT ,  YOOT  ,  ZDOT 


CRS08700 

CRS08710 

CRS08720 

CRS08730 


CRS06640 
CRS06650 
CRS06660 
CRS06670 
J 06660 
CRS06690 
CRS06700 
CRS06710 
CRS06720 
CRS06730 
CRS06740 
CRS067S0 
CRS06760 
CRS06  770 
CPS06780 
CRS06790 
CRS00180 
CRS06810 
1CRS06820 
CRS06830 
CRS06840 
CRS06BS0 
CRS00230 
CRS00240 
CRS0B980 
CRS00250 


CPS09040 


CR509050 
CAS00300 
CP  309080 
CRS09090 
CRS09100 
CRS09110 
CRSC9120 
CRS09130 
CRS0914C 
CRS091S0 
CRS00400 
CRS09I70 
CRS09180 
CR  SOY  190 
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I 
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CD'I’ON  XL94R,SF,FSP0F,XKE,FSPBAR,X*U.VEE00T  CRS00A40 

C3R13N  XG03T, VGOOT,  2G00T.PP8 ,0PR ,RPR ,PHi PR.TMEPR, PS  I  PR  CRS00360 

C33*<3N  PHIOP  *  TH£0P,PSI  DP»X3P,  YOP  »2DP,OAt » CELT AT  »THAX»T  IHE»T1TLE  CRS09220 

C3H3N  PMltJ.TKEIJ.PSn  J,XK,0!  J,XXLBAO,3I  ,XLNGT*,IP  CR500470 

C3't1T4  NN,I,J,  ILAST,  I  TAB  I  J.ITAB6.I  JU  JtlJKLtJ.I  JKK.IJL.  IG, JG,  IT  AB,CRS09240 
I  1TASO,  IJ<L  •  1  TABL1,  IPRINT,  l  TABLE  •!  LIMES*NPP,  IGS,  I  ISP,  ISP,  IB$,N,NKCR5Q0490 
C3M30N  XRUPT,!*UPT,  JftUPT 
CJ't'ON  INOP,  !PEN,KPFN 
C3*HON  ?JPR 

C19N3N  PLOT, 2 AR«TNPLOT»I  PLOT , IOPIOT, I PLSW , ! PLC, JPLOT ,NPLOT » ITPLOT 


E3UIvAlfNCE  I  XKSU)  ,XKS3II.l  .1)1  ,  I XXI 1 1) , X XI 3 ( 1 , 1 , 1 1> ,  CRS07030 

1  IXXRINll.l.MfFHSAHIUI.IFXU)  ,FM3  U  ,  1 . 1) » ,  I VEE  III  »VEE2I  It  l  *  I  CRS07040 
€301  VALENCE  (  XTMOLOU,!!  ,XV2I  JI I II I  ,  (XTHOLOIi  .21  ,XVZIJJ II ) ) 

F30I  VALENCE  (  FWi«t  l  I  ,FM3M  3  (1 , 1  »l  II  ♦  ( NU  )  ,NJ  (!  UI.iNNIl.l),  CRS07050 

1  VV2I  l.  IM.IFSPBATtl.lJ  ,FSP8A2(1  ,1» )  ,  U  eS  (l , 1 1 , 1 BS2  (1.  U  I  CRS07060 

E3UIVALENCE  I  S 1,  SINC OSUI I  ,  (Cl , S! NC0SI2 M  .  (S2 ,SI NCOS (31 1  CRS09300 

€301 V  AL  ENCE  I  C  2»  SIMCOSi  AIM  S3,  $  I  NCOS!  5 1 1  .  IC3  .SINCOS  16 )  I  CRS09310 

F3UIVALENCE  I  >K|  1 1,  XX3I 1  ,1 , II  I  CRS0926 

SINIXI  ■  OSINOJ  CRS07070 

C3 S<  X I  «  OCOSOI  cpsotoXo 


_  S3RT t  X)  ■  OSQRTIXI 
I3LD-0 

03  100  !»1,NM 
ARG«PHIt  II 
Sl-SINURG) 

CI«CGS(ARGt 
AT  G»  THETAI I  I  . 

52*5  IN (ARC  I 
C2«C0S(ARGf 
ATG*PSU  II 
S3-STNIARGI 
C3-C05IARG) 

03  85  J»  1, 6  .  . 

T.SIVCOSUI 
IF  i  T  I  70,83,7! 

70  T.-T 

75  Ie  (T-l. 6-101  (0,85,8$ 
«0  SINC3SIJ )*0. 

85  C3NTINUE 
J-9»C  t-l  I 

C  N3V6  Al»s  TO  OLD  AI'S 
03  90  JJ«I,9 
90  OAI(J,JJt„BtJ< J«JJ) 

SI  S2»  5 1*52 
C1S2«C  1*S2 
81 JI J ♦  lt«C2«C  3 
«1J(J*2I-C2*S3 
81JiJ*3»—S2 
BUI  J»4.|— Cl«S2*SlS2»f3 
8IJ(J*5t»Cl*C3«SlS2»S3 
BIJIJ  »<1»S1*C2 
8IJIJ*7t«Sl»S3«ClS2*C3 
BIJIJ  ♦  8!"-Sl»C2»C  l  $2*  $3 
8IJ<J*9I"CI*C2 
100  C3NTIV0E 
C 


03  10  IJ  *  1,  IGS 
si  «  siNiPHiiJiun 
ci  *  cnsiPHitJtnii 
S2  ■  S  IN  I  THE  1 J 1 1 J ) ) 


CRSC9320 

CRS09330 

CRS093A0 

CRS09350 
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C2  -  CflSl THE  I J ( t J 1 ) 

CRS09360 

S3  »  $  IN  (PS  II J  1 1 J  1 1 

CRS09  370 

C3  •  C0S(P5IIJUJI) 

CRS09380 

01  40  J  •  1.6 

CRS09390 

T  *  SINCOStJI 

CRS09400 

te(Tl  45,40,50 

CPS09410 

45  T  •  ~T 

CRS09420 

50  IF(T- l.F-101  51. 40.40 

CRS09430 

55  SINC3SIJI  »  O.C 

CRS09440 

40  CONTINUE 

CRS09450 

AlJt  1)  *  C2*C  3 

CRS09460 

A r J ( 21  *  C2*S3 

CRS09470 

A I J (  3 1  *  -S2 

CRS09480 

A1 J ( 4 )  o  -C  1* S3*S1*S2*C3 

CRS09490 

AIJI5I  »  Cl*C3«Sl«S2*S3 

CR 509 500 

AIJI6I  *  Sl*C2 

CRS0u51O 

AIJ{  71  «  S1*S3«C1*S2*C3 

CRS09520 

AIJI8I  *  -S1*CZ*C1*S2*S3 

CRS09530 

AI  J(  9!  »  Cl*C  2 

CRS09540 

I  r  9«(IJ-n 

CRS09550 

03  15  J  «  1.9 

CRS095A0 

IS  OIJ(  I*J)  «  AfJIJ) 

CRS09570 

CMJ  *  C0AR1SJI 

CRS09560 

I  *  IGI1JI 

CRS09590 

J  «  JGIIJI 

CRS09600 

!F  ((  !OlD.NE.CI.ANO\.U.EO.IOt.01»  SO  TO  120 
IS*9*(  l-ll 

m  no  jj-i.o 

1S«IS*1 

no  AIUJ  l-»  IJC  ISJ 
X20  131  0*  I 

!S.9»IJ-n 
03  125  JJ-1.9 
IS*IS*1 

125  AJIJJt-BUI  IS) 

AITAJ(  l>«Ami*AJUMAl(2l*AJ?2JAAt  (3>*A.lt3> 

A!  TAJ  !2)-A!(4l*«J{  1  I  *A  II  5!  *  A  J(2  I  *  A1  (6>*AJO) 

AITAJ(3I«AU  7I*AJ(UaAI<8)*AJ<2>4*IS9)*AJI3> 

AITAJ<4)*AIt  1>»AJ(4)»AI(2I»AJ(5)*A!  (3>*AJ(6I 
AITAJ  I  5l*AU4}*4JI4>«AI|5l»AJt5}*AI  (6I*AJIG> 

AITAJ<6)«At<  7I«AJ(4).AI(8I«AJ(5)+AI  C9I»AJI6I 
AITAJ  1  71  «A1  I  1I*AJ(TI+AH2»*AJI8»  *Al  (3i*AJI9l 
AITAJ  (l»)«AU  4MAJ(7l*AI<5)»AJ«ei*AI  |fcl»AJ(9l 
AITAJ (91»AI( 7I«AJ17I*AI( 8)*AJI8) ♦AII9I*AJ(9) 

COMPUTE  DAMPING  COEFFICIENT  MATRIX  C 
IKS*  t 

0.3  312  K5-1.2 

IP  (  <  $  .rO.  2  )  KXS«J 

XTHOLOI  1,KS)*XI(KXS)  . 

XTH310I2,KSI«XII(KXSJ 
XTIOl  Ot3.KSI*XZI(XKS) 

XTH310(4,KSI*XM(AXS) 

XTH3L  01  5,A$)*YHKKS> 

XTH3L  Of  6.KS  I  *  YZK  XX  S I 
XThDL0(7,KEI«X/1(XXS) 

XIM3LOI8.XSI-YZIIXXS) 

312  XrHni.0(9,XS)«Z  IIXX5) 

PX30I  II*  AITAJ  (  ll*XYZIJJ(l)»AITAJI4l*XYZI  JJI2I ♦ Al T AJ (TI*XYZI J J (3  I 
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PR0D!2)»AITAJ(2)*m! JJt 1 1  ♦  A! TA J 1 5 > *XYZ1 J J 12)  *A!T AJ (8 1*XYZ! J J  (3 1 
POD!  3:*AITAJ(3)*XYZtJjm*AITAJ!6)*XY2I  J J (2 1  ♦ A!  T AJ (9)*XYZt J J (3  1 
POO(4)*AITAJ(  1  >  *  XYZ !JJ(4)*AtTAJ(4) *XYZ! JJ t5)*AITAJt7)*XYZtJJ(6) 
POOl  5I*AITAJ  (  2I«XY2  l  JJl  4)»A!  TA  J15I  *XY2l  JJtSI  *AI r AJ  (8l*Xy2UJ  16) 
PODl  6>*A!TAJ(  2)*XY2  1  JJ(  41*  A !  TA  J  (61  *XYZ1  J  J 15 1 +A!  T  AJ  (9  )*XY2 1 J  J  16 1 
POD  t  7?*AITAJ{  ll*XY2  lJJ(  7)  f  A!  T/  J  (41  *XYZ I J J 13 1 *AI T AJ  (7I*XY21JJ  (9) 
POOl  9  l*AITAJ  !  2I*XYZ! JJl  71  ♦  A!  TA  J 1 5 1  *XYZ!  J  J 181  ♦  A!  T  AJ  18  >*XYZ!  J  J  19} 
POOl  9)*AITAJI  2 1*XYZ  t  J  J(  71  »  A1  TAJ16)  *XY2!  J  J  (8 1  ♦  At  I  AJ  191PXYZIJJ  19  ) 

XY21JJI  l)*PROOlll*Al  TAJ(  1 1  ♦  PROD  1 4 1  *A I  TA  J|4 1 +PROD  ( 7 1  *A[ T  AJ<7) 

XY21  J  Jt  2l*PROG(2)*A  1  TAJ!l!TPP00(5)*At  TA  Jt  4  1 +  PROO 1 8  1»A!T  AJ17) 
XYZIJJt11*PROO(3)*Al  TAJl  tl»PPn0(6)*AiTAJl4)+PR00<9)*A!TAJ(7) 
XYZ!JJ<4)»PRQ0tl)*4!  TAjl2)*-PR0D(4l*A!TAJf5)*PR00t7)*Air  AJ(8) 
XYZIJ  J(5l*PROO!2)*A!  TAJ(  21  f  PROD  (51  *Al  TA  J(  5  I  ^PROO  (6  1  *AtT  AJ181 
XY2lJJ(6!*Por>OI3)*AlTAJ(2l*PROO(6)*AtTAJ(5)  ♦  PROD  19  ) *AIT  AJ 18! 

XY7  l  J  J  (  7)*PGOO  (  H*A  1  TA  J(  3)  t-pooo  14 )  *A  t  TA  J(  6  1 +  PROD  1 7  1  *  A!  T  AJ  (9) 
XY2lJJ(9)*PPOOt2l*AlTAJ(3)»PRrO(5)«AlTAJt6)+PPOD(8)*AlTAJi9) 
XYZIJ  J(9)*PROO(3)*At  TAJt  31  ♦  PROC  1 6)  *AI  TA  Jt  6 1  ♦  PROD (9  I  * AIT  A J (91 
01  314  XS*  1.9 

314  XYZIJ  Hull"  XYZIJ!!*  SI*  XYZ!  JJI  KS) 

POOl  lt*XY2  !  J  1 11) *4!  J(  1UXYZI  Jt  1 4) *A t Jt 2) »XYZ t Jt  1 7 1 *AI J 1 3) 

POT  (  2  )*XY2  tJtl21*AtJ(ll»XYIIJI(5l*AIJI2t*XY2IJtt81*AIJl3» 

PR101  3)«XY2  t  JII3l*At  Jl  U*XYZI  J1  (6JPAI J12I+XY2I  Jt  (91*A1J(3) 
0O0(4)  =  XYZIJItll*»  t  J(4)*XY21  Jt  t 41 *A ! J{ 5! *XY 2!  J!  17)*AIJ161 
PODl  51*XYZ  !  Jt  (21*4  !  J(4i*XY2l  Jt  (5)  *AI  J(5!*XYZt  Jt  (81*AtJ  16) 

POO  (  6 1*  XYZ  IJlt3)*AtJ(4)»XYZIJl  t 61 *A ! Jt 51 *XYZI Jl  19)*AIJ16) 
POO(7)*XYZ1J  1(11*4!  J(7)*XY2t  Jt  <4M  A  t  J(8)  ♦XVZt  J!  !7 » *At  J IV I 
POO  l  8)*TY7  !J  t  (21*4!  Jt  7U-XYZ!  Jt  t 5) *A 1 J t 8) +XYZ I JI t 0 1 *Al J  (91 
POOl  9)«XYZ  IJ  I!3)*A  t  Jt  Vl  +  XYZi  J!  1 61  *A  t  J18 1  +XY2I  JI  l9l*A!Jt9) 

XItJt  ll*AIJt  1 1  *PP03  l  11*A!J121  *PROD  (21  +  AIJt3)  *PROD  13 1 
X!  IJt  21«A!Jl4)»PR0D(4)+AtJ(  5)  *PROO  15 ) »AI  J 161  *PROO  16  I 
XI  IJ  l  3  )<=A  I J  (  71*PR001  71+AIJl  ei*PRCD(8)*AtJ(9)*PR0Dl9» 

03  20  K  «  1,3 

20  C(<fIJl  «  .  101 890*18  I  J*SQR  T  IXK3 1  K  *K»  I  JI  *1 MCT 1 1  l»HCT  (Jill 
00  30  K»4,6 

30  Cl*.  IJ  1«2.«CS!J*S0RTIXK3(*.K,!  Jt  ♦XIIJIK-31I 
10  CONTINUE 

return 

END 
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SUBROUTINE  LINES 
INPLICIT  REAL**  5A~M,C-2) 

REAL* 4  FLOTI3CCOO!  .ZAP  ,TMPL0T(500> 

OIHEYSION  SC  t  4  C ,  .3 1  •  2  AR  ( 2  00)  ,1  PLOT ( ISO)  , I DPLOTUSO ) 

OIHEYSION  ICC  «C).JG(80).PHT1  J180)  .THE1  JI80I  ,PSI  I J  (80)  .WOT  (40 )  ♦ 

1  XI(40),Y!C4C>, 21(40)  ,XY!(  40)  ,Y21 140)  ,XZI(43i  .HEX  (40)  *H6Y  (40  )• 

2  HEZ  1 40)  .At  IET1  40)  »  Xt  40)  *YC40)  .2(49), PH!  140)  .THE?  A<40)  ♦  PS  1  (40), 

3  J(40>,  VI 40)  ,4(40)  ,PC40)  ,0<40>  ,R(40)  ,X00TC40)  .YOOT  140) ,  200T  (40  ), 

4  PH100T(40).THEOOT140),PSIOOT(40)  ,UD0T(40 > .VOOT (40 > .MOOT (40 ) 
DIHFYS13Y  4  IJ(S),Att  9)  ,AJ(9>  ,A1  D0Tt9)  ,I)X{ 40)  ,0Y (40)  , 02(40) , 

1  0>Hl(40i.nTHETA(40i.OPSI(40),0<SI  ,0F(6>  ,XX(40) ,  XV  (40 )  ,  X2(40 )» 

2  X.I40).XM(4G),XN(40)  ,OELI<40)  .XI  l  (40)  ,XI2(40)  ,XI3(40)  . 

3  X)  4(40).  XI  5(40). X!  6(40)  ,  XXI 2880)  ,f  K8AA(2880>  ,FKaAR3 16,6,80), 

4  Ml  2880),  XKAINU0,6,80),VEF  (480?  ,VHAX(  480 )  ,NN(40  .3  ).Nf<2(40, 3) 

.  QIHEYS  t(lY  XM  3(9, 6,  80)  ,6 1  J(  3601  ,C  t  3(360)  ,  0(  J(720)  ,X  L6AR  (40,3  ) , 

1  XXL  BAA  (3).  I5P(40,3),IISP(  3)  ,XHU(40,3)  ,XKE(40,3>  ,OAI(3bO>, 

2  I8S(40,3).tBS2(40,31,SI(40.31  ,SP(40.3)  »f 5POF (40 ,3 ),  PHI  DP  (40), 

3  THE OP ( 40) .P  S  IOP( 40 1  ,F  SP8AP (40,3) ,F SP8A2 (40,3 ) .XLNGTHC3 ) , XC (6) , 

4  XO’  (  40).  Y0P(  40),20P(40),FP3(6,6,80),VEE2  (6,80)  .VEEDOT  (3,  3) 
OIHEYSION  PDO T (40) ,OOOT{ 40)  ,ROOT{40)  .6(480)  .N3 (33  ,6 ) ,f;VS  ICN16 1, 

L  X< Si 4329),  XK <3(9, 6, 80)  ,XXI  (43  2  0)  ,TITIE(IC) 

01  HEY  SION  X0L0I40) , Y0L0I40)  , 2010(40)  »PH ! ULO 140 1 ,  THE  CJLO  (40)  , 

1  PStOLO(4O),PCLP(4O),QOL0(40),P.OLO(40)  cUOLO(40t , V010S40 ) ,M0L0( 40 
OIHEYSION  XXK(  (C) , XXJ(  801  ,XYK(80)  ,XYJ(S0)  ,XZK(83)  ,X2J(80I. 

1  X.<(  80),XLJ(  (0) , XHM  80)  , XMJ( 60)  ,XNK(80>  ,XNJ(33) 

OIYFYSI3N  3 XI J (801  ,OYI  J(  80)  ,02!  JI80) 

OIHEYSION  PIN!40l,3lN(40),3!N(40),PtNCi40)  ,0*.  NOt  40!  ,  RIN0I40 ) , 
i  0*1*140)..  00  INC  40)  ,ORIH(40) 

DIHENS  ION  OOI6).OPX(40l,OPYI4O)  ,0P2(40I  .0PU4Q)  .OPMJ40)  ,DPN(40) 

01  HENS  ION  C  t  6,  EO)  .CBAR  ( 80)  ,  CXOA  (6,80) 

OIHEYSION  XACC  (40) ,  YACCI 40)  .,2 ACC  (40) 

*~t»HFYSION  SUNOFt  6,  SOI . TRUPT ( 80)  ,IRl>PT|90)  .JRUPTCBOr 
DIMENSION  TPENI80),1PEN(B0) 

OtHEYS  ION  IJPRI76) 

OIHEYSION  AITA2C9) 

DIMENSION  F SPO I ( 40. 3), SA(40. 3l,SBt40.3) 

DIHEY SION  OP  I  (76) 

C3NH0H  OR  I 
<3M43N  FSP3!,SA.S8 
C3HH0N  A (TAJ 

C3N43N  XNBA* , XP8AR, YNBAR , YPBAR , ZNBAR ,2PBAR ,TPEN 
C3HH3N  SUHOF ,  TRUPT.O  XDA ,  SC 
C3HH3N  XACC, YACC.ZACC 
C3HX3N  C.CBAR 

_ C3.MH3N  00,OPX.OPY,OP2,OPL,3PH.DPN 

C3HH3S  PIN,0!N^IN,P!NO,0!Y0.R!N0,0PIH,D0IN,0R!N 
CDHHON  OXIJ.OYIJ.OI !  J.ZG 

C3H43Y  XXX,  XX  J ,  XYX ,  XYJ  ,X2K,  X2  J,  XLK.XL.I.  XHK.XHJ.XNK.KNJ 
C3HH3N  XOLO,  Y0L0.23L0  .PHIOLO  ,THE  OLD.  PS  I  OLD, POLO. OOtO.ROLO.UOLO, 
l  V3L0.M0L0.0T2.0TMALF 

_  C3MH3N  PHI.THETA.PS!  _ 

C3H4-JM  B(J,PS!COT,THFOOT,P4IOOT,CI  J ,X,Y  ,2 .Xt  J ,Y!  J ,2!  J.O,  OE 
C3H43N  A  I.  A  IOOT.AJ.AI  J.OX.OY.OZ.OPHI  .OTHET  A.OPSI  ,  CVS  ION 
C3HH3N  VEE.FHBAR.FH.XKS.XKl .VHAX 

C3H43N  XX,  XY,JI2,XL,XH,XN,H3T,ALIFT,XC.P,Q,R,U,V.W 
C3H13N  UOOT,  V0CT.M30T.X2t  ,YZ1  ,21  ,HE2  ,X!  ,XY  t  .HEX.  1 1  ,I«6Y,  OEL  I 
.  COY HON  POST  ,XI),X(2<X(3.Q33T«XI5.XI  4  .ROOT  .X16.XOOT  »  YDOT  ,  ZOOT 
C3M43Y  XLB4P  .SF.FSPOF  ,XXE  .FSPBAR.XMU, VEEDOT 

C3M43N  XCD3T,  VGOOT,  2GD0T.PPR  ,OPR  ,RPP.  ,P8 1  PR  ,THCPR,  PS  I  PR 
C3HMJN  PH  (OP ,  THEDP,  PS)0P»X0P,Y0P»2CP»0AI  .  CELT  AT ,  T  HAX  ,TIHE,  TITLE 


CRS09810 


CRS0T310 
CRS07320 
CRS07339 
CRS0T340 
CRS07340 
CRS07360 
CRS07370 
CRS073S0 
CRS07390 
CRS07400 
CPS07410 
CRS0T420 
CRSGT430 
CRS07440 
CRS074S0 
CRS07460 
CRSQ0I80 
CR $97480 
ICRS07490 
CRS07500 
CR 507 5 10 
CRS07520 
CRS00230 
CRS0024I) 
CRS00250 
CRS00280 


CAS  10 100 
CRS00300 
CRSI0130 
CRS10140 
CRS10150 
CRS10160 
CRSICITO 
CRS10I80 
CRS  10 190 
CPS1020Q 
CRS00400 
CRS10220 
CRS 10230 
CASIO  240 
CRS00440 
CRS00  3  6  0 
CRS  10270 
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COMMON  PHll  J.THEU.PSttJ.XX.OI  J.XXLBAR.Sl  »XLNGTH,  IP  CMS00470 

C1MM3N  NN,I,J,  ILAST,  ITAStJ,ITAB6,J  JLt  J,I  JXU  J ,  I JXK,  U<L.  1 G.  JG,  IT  AB. CAS  10290 
l  IT  ABO.  IJKL »  I  TABU  ,  IPP INT » I  TAB  LE  » I  LINES, NPP » IGS  ,I!SP,t$P»  IB£.N,NNCAS00490 
COMMON  KAUP  T,  IRUPT,  JRUPT 
COMMON  INOP,  IPEN.KPEN 

C.IMM3.N  IJPA  ■» 

COMMON  PLOT , ZAP, TMPC OT»! PLOT, 10 PLOT « I PLSW , I PLC, JPLQT »NPLOT « ITPLOT 
E3U1  VALENCE  (  XXSI II ,  XKS31 1 ,  l  ,1 !)  .  I XKI 1 1 1  ,XKI3 1 1 , 1  .1 )  >  .  CAS07700 

1  IXSRINIl,  l»l),FN3AR{ll)«IFMlll«FH3tS»l,i))»(VEE(l)»VEE2(l»l))  C8S07710 
E3UI  VALENCE  (  FM9AR  III  ,F  NBA*13(  t ,  1  ,1 1 )  ,  CNItl  ,N3  (1  ,l» )  ,  (NN!1,  l » ,  CAS07V20 

l  NN2U.  111,  I  F  JPBAA  (I.  II.  F  SPBA2 II,  t)»,(  IBS  U,  II,  1 85211,111  CRS07730 

03  10  IJ  »  1,  IGS  CAS  10340 

03  10  L  »  1,6  CAS  10350 

XO  »  -OXDACL.IJ!  •  CAS  10370 

Of  LX  «  0X04  ( L  ,  IJ  I  CAS10380 

40  03  10  I  «  1,11  ABL 1  CBS  10 420 

XO  *>  XOfrOeLX  CAS  10430 

T  *  (XK»!N(I*1,L,IJI-XKAINU,L,1  Jll/DELX  CRS10440 

X<S3(t,L,IJS  «  T  ’  CAS  10450 

10  X<!3(l,L,!J>  «  XXAINU  ,L,I  J!-XO»T  CAS10460 

AFTiKN  CAS10470 

EnO  CAS  104(0 

,  SU813UTINE  CFOACE  CASIO490 

IMPLICIT  REAL  *  f  1A-M.0-Z) 

A*A.*4  PLOT!  3CC00I, ZAP, TAPIOTI500I 
OINFNSIOM  SCI  4 C. 31,  ZAP (2001  , 1  PLOT!  1501  , IDPLOT  (150 1 
...  DIMENSION  IS!  8CI.J3I  801 .PH! t Jl 80)  ,TMEI JI80I ,PSII J (SO) , N6TI40 1 »  CAS07910 

1  XI  i  401, VI I  4C  I.ZU  401  ,XYI  I  401  ,YZ!  1401  ,XZI  1401  ,HEXC40),KEY  140 1,  CAS07920 

CAS079S0 


2  KEZI40I.AL  IFTI401  ,  XI 401  .  YI40I  .ZI40S.PHI  1401  .TMETAI40) ,PS 1(40),  CAS07930 

3  Ul  401, VI 401  ,fc(40»,PI40l  .0(40)  ,A(4CI  ,X00T(43I  .TOOT  (43I.Z00T  (401,  CRS0T940 

4  PN’l OP T  ( 40 1 ,  ThEOOTI  40)  >PSI  007(401  ,U0QT(40I  .VOOT  140)  ,H00T.(40  I  CAS07950 

DIMENSION  A  (J  (  SI.AI  (  9)  ,A J( 9 1  ,At 0OT(9l  ,0X1401 ,0Y!40I  eOZUO)  ,  CASQ796G 

1  0»HI(40I,0T»<ETA(40I,0PSI(40)  ,0(4)', OF  (61  ,XX(40I  ,XY  140 1  ,XZ(40  1 1  CAS07970 

2  XL  ( 401,  XM(  4C 1 « XN8  40)  «0ELt  (40)  , XI l  (401  ,X  12(40)  ,X  13  (40)  ,  CASC7980 

3  XI4(  401, XI  51  401  .XI  6(40!  ,XK(2880)  ,FH6AA(I8«3)  ,f X&AR3 (6.6. 80 > ,  CAS07990 

4  F4(  2880).  XXP  INI  10,6,80)  ,YEC(4(d)  ,VMAX (6S0) . NN(40 ,3 )  ,NN2(40,3)  CRSOOOOO 
DIMENSION  XXI  2(9, 6,  80)  ,813(360?  ,CI  J»360)  ,01 JI720I  .XLBAA  (40,3 ) ,  CASQ0010 

1  XXLSAAI3),  ISP(40,3I.IISP(  31  .XMUI40.3)  ,XXE(40,3)  .0AKS60),  CAS0S020 

2  IBS (40. 3) ,  18  521  40, 31, SI  (40,3)  ,  SF (40,3 )  ,FSPOf  143  ,3 1  ,PH2 OP (40 ),  CAS04030 

3  THE  OP  (40 1, PS  (DPI  401  ,FSP8AA  (40,3)  ,F  SPBA2  (40,3 )  ,XLNGYM(3)  ,XC  (6)  ,  CASC8040 

4  XOP  (40),YDPI40),ZDP!40),FN3(4,fe,80) . VEE2 16 ,80) ,VEE0OT (3. 31  C8S06050 

DIMENSION  POOT(4C),OOOT(40t  ,XR0T(4C)  ,N(430)  ,N3  (80,6)  ,OYS  ICNI6),  C8SC8040 

1  X<  St  4320),  XK!3(  9,6,801  ,XK  1 1 4320)  ,Tt  TLE 1 10)  CAS00180 

DIMENSION  VA(  3  ),VA30TI3‘  ,P*AR(3I  ,PL(3  ,3 )  ,FSP(3  ,3)  ,XV0C(3,3)  CAS98080 

.  OINENSION  Clt3!.C2I3),K3I3),  S(3I,SOOTI3I  CAS0809C 

DIMENSION  X0L0I40I,  Y0L0I40)  ,Z0LOI40l  ,PHIOLO(40)  ,THE-OLO(40)  ,  C8S08100 

l  PSinLOC4OI.PaOI40U3OLCU40)  ,8C1LD(40I  .UOLOI40)  .V0L0240)  .WOLOtAO  IC8509 110 
DIMENSION  XXXI  £0)  ,XXJt  801  .XYXieOI  .XYJI80)  ,XZK(831  ,X2J(80),  CASC8120 

1  XL<( 80),XLJ( (OI.XMKI 80) ,X*J!80) .XNSU80) ,XNJ(83)  CAS08130 

DIMENSION  0XIJ(80)«OVIJ(B0)  ,OZI  J ( 80)  C8S08140 

DIMENSION  PIN!  401,5  IN'.  401  .XINI4  0)  ,P!H0(4S>  ,01  NO  (401 ,  At  NO  (40 1,  CASOO250 

1  OPIN(40),OOIN(40)  ,CR(N(40)  C»S00240 

0IMFNSI.3N  00(  6 1.OPXI  40)  ,OPY  ( 40!  ,0PZ(40)  ,DPL  (40)  ,0PH;40)  .0PNI40)  CAS00250 

01  MEN  $  (ON  C(t,E0).CBA»(80l  ,GX0AI6,80)  CAS00260 

OIMf.NSION  XACCI40),  VACCI40)  ,ZACC  (40) 

OtMFNSION  5UM0F(  6,80)  .TAUPT(eO)  .  I  RUPT  180  .JAUPTISO) 

DIMENSION  TPENI 80). I  PEN! 801 
OINENSION  I  JPR  (  76 ) 

DIMENSION  A  (  TA  J(  9) 

01  MEN  SION  F  SPO !( 40, 3 ) ,  SA(  40,31  ,  SB  (40, 3) 
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DIMENSION  OR  !  (  tb) 

CORDON  OR  I 
C3MM3N  FSP3  I .  S/S,  SB 
COMMON  AITAJ 

CDMV3N  XNBAR ,  XP8AR,  YN8AR  ,YPBAA,ZN8AP  ,Z«>8AR  ,TPFN 
C3“M0N  S'JMDF,  TRUPT.DXDA.SC 
COMMON  XACC-  YACC.ZACC 
CO-MON  C.C8AP 

COMMON  OD.OPX.CPvoPZ.DPL.OPtsOPN 

COMMON  P  IN.OIN  .RIN.OINO.QINO.P.I  NO.OPIN.DOIN.ORiN 

COMMON  OXU.OYIJ.OZt  J.ZG 

COMMON  XXX.  XXJ,XYK,XYJ,XZK.X2J,XtK,XLJ.XKX,X*J,XKK,XNJ 
COMMON  XOLO,  YOLO, 73LO.PH10LD,  THE  CLD.PSI  OLD,  POLO*  QCLD.ROLOtUOlO, 
1  VOLO,WOLO,OT2,OTHhLP 
COMMON  PHI ,  THE  TA  ,PS  I 

COMMON  ftIJ.PSIOOT,THEOOT,PHtOOT,CI J.X.Y.Z.XI J.YI J.ZIJ.O.OF 

COMMON  A  I. A  IOOT.AJ.AI  J.OX.O  Y.OZ.OPHI  .DTHE T A.CPSI , DYS ISN 

COMMON  VEE  ,FM8A°.FK.XK$  ,XK!  ,VMAX 

COMMON  XX,  XV,  XZ.XL.XM,XN,K0T,AUFT,xr.,P,O,R,U,V,N 

COMMON  IJDOT,  VOOT,*SOOT,XZI  ,YZI  ,21  .HFZ.Xt  ,XY  I  ,HFX ,  Y  I  ,  HEY,  DEL  I 

COMMON  POOT.  XI  l.X!2,X!2,OOOT,X!5  .XI A  .ROOT  ,XI6  .XWIT ,  YDOT ,  ZDOT 

COMMON  XLBAR  .SF.FSPOF  ,XKE,FSPBAP,XHU.V£EDPT 

COMMON  XG03T, VGOOT, ZCOOT ,PPP ,QPR ,RPP , PM  1  PR .THE PR , PS  I  PR 

COMMON  PHIOP,  mnt>,P$inP.XOP.YDP.ZOP,OA!  ,OELVAT,TMAX,T!ME,TITLE 

C3*M3N  PHHJ.  THCIJ.PSI  I  J.XK.ni  J.XXLMS.SI  .XLNGTH,  IP 


CI5S10800 
CPS00300 
CP  S 10830 
CRS108A0 
CRS108S0 
CPS  10  860 
CRS10670 
CRS10880 
CR  S 10890 
CRS10900 
CRSCOAOO 
CR5 10920 
CRS  10930 
CRS  109  AO 
CRSOOAAO 
CRS0036C 
CPS  10970 
CR  500M  70 


COMMON  NM.I.J,  1LAST  ,  I  TAOI  J.  1  TAB  6  ,!  JLIJt  1  JKLI3.IJKK,  IJL*  I G,  JG.  IT  AB.CRS  10990 
1  ITABD,  IJXL,  I  TABU  «I  PRINT, ITA8LE*!LI  NES,  NPR,  IGS,I1SP,ISP,1BS,N,  NNCRS00A90 


COMMON  KRUPT,  IPIPT,  JRUPT 


COMMON  INOP,  IPEN.XPEN 


C0MM3N  IJPM 

COMMON  PLOT.ZAR.TMPLOT.IPLOT.IDPLOT.IPLSMjIPLC.JPLOT.NPLOT.ITPLOT 
E3UIVALENCE  <  X*S(  U  ,  XX  S3i  l ,  1 , 1 1 1  •< XKH1 1  .XXI 3  1 1  ,1 , 1  >  I ,  CRS08320 


1  (XMRINtt.  1,  1I.FM3ARI  1)),(FM<1}  ,F*3C1  ,1  ,l»  1  ,  ( VEE ( 1 1 ,VEF» ( 1 , 11 1  CRS08330 
C3U I  VALENCE  <  PP3ARI  l  J  ,F  M8AR  3  11,1  ,1 1)  ,  I  Nil )  ,N3  It  »l  I  i  .  (NNC 1.  1 1  ,  CRS08  3AO 

1  NM21 1,  111  ,IFEP8A?{  1,1 1  .FSPBAZtl  ,1?  1 .1185(1,1  ),I8S2U,  111  CRS0835C 


S3RMXI  «  0S0RTIX1 
v a i it  •  mu 
VAI2I  -  YUI 
va 1 3 1  »  mi 

VAOOTI  tl  «  XOOTI  t! 

VAOOTI  21  *  YDOTt  I  I 
VtO^IJI  *  ZCOT(I) 

PRAM  (II  «  PHI 
P3AMI2)  »  3111 
P3AH31  *1(11 
INITIALIZE  SOME  MORE 
01  10  K  *  1,3 
XLNGYHPt  I  =  O.t 
IIS>(X!  *  ISPt  I.K*. 

XXLftAR  IK  I  "  XL8ARH.K)  * 

1)0  15  JJ  *  1.3 
FSPIJJ.MI  *  O.C 
15  XY3C ( J J.K I  *  C.O 
10  CONI INUE 
LOOP  G 

OO  10  R  *  1,3 
IMtlSPiK!)  25.20,25 
25  IS*JB  *  3»X 

DVC  »  A 1  (  1SU8  ITXXLPAPIXl 
n/CDOT  •  AIOOTI  ISOJ  !«XXLBA1  (X) 


CRS08360 
CRS110A9 
CRS11050 
CXS  11060 
CRS  11070 
CR5110B0 
CR  S 1 1090 
CRS  11 100 
CRS  1 1 1 13 
CR  S 1 1 120 
CRS1113C 
CR  S 1 1 1  AO 
CRS  11 150 
CR  S  11  160 
CRS 1 1 170 
CRS 1 1 180 
LRSUIMO 
CRS  11200 
CRS  12210 
CRS  11220 
CPS  11 230 
CPS112A0 
CRS  11250 
CPS  11260 
CR  S 1 1 270 
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‘  «A , 


1  *' 


Ml  .  j-  '/ 
v  -  •  *  V  » 


P;~. 

T'  '•■'!• 


.»  d  ■  '  r1 


VC  •  VAC  3 1*0 VC 

CBS  11280 

vcc3 f  •'  vicnrc  2»ovto27 

CRS11290 

C1C<!  «  vc/ovc 

CPS  11 300 

C2C<>  m  ( DVC* VC00T- VC*D VCDO T)/tOVC*DVC* 

CRS 11310 

VC3C6  !  «  VC 

CRS 11320 

20  C3NT  CNUF 

CPS  11330 

C  LOO?  M 

CRS 11350 

03  30  *  *  1,3 

CRS  It  350 

IFtnSPCKII  33,30.35 

CRS  It  360 

35  IFIVC3CK))  30.20,60 

CP  S 11 370 

AO  ISU*  •  3*i<- 1 ) 

CRS  11 380 

BAH  «  XXLBARCB) 

CRS  11 390 

SUV  »  0.0 

C"S11600 

SUMO  •  0.0 

CPS  11610 

C  LOOP  J 

CPS  11620 

03  50  J  ®  1,3 

CPS11630 

JSU8  -  t  SUB  ♦  1 

CRS11660 

OVC  «  AI I ISU9  l*9ARl 

CPSU65P 

OVCD3T  «  AtOCT(ISUBl*8ARL 

CRS 11660 

CW®  »  ClCBI*0VC 

CPS  11 670 

OOP  «  C  1  (5 1  *0VC00T*C  2C  Bl  *0VC 

CF  S 11680 

SU®  *  SU«»0VP«0V" 

CPS11690 

SUMO  «  SUMO»OVP*OOP 

CPS  11 500 

50  C3NTCNUE 

CPS  11 510 

S<  •  SOB  TC  SUM  1 

CRS 11 520 

S(IC)  «  SB 

CRS 11530 

SCU.B)  «  SB 

S03TCB)  -  SUMO /SB 

CRS 11560 

'C  GET  LENGTH 

CPS  11 550 

IFC6ARU  55.6C.60 

CPS  11560 

-  55  7  *  -BABL-SK 

CRS 11570 

■|F|T|  65.6S.7C 

CRS 11580 

70  T  •  -T 

CPS  11 590 

GO  TO  65 

CP  S 11600 

60  T  «  BARl-SB 

CPS  1 1610 

IFCT)  70,65,65 

CCS11620 

65  XLNGTHCB  1  •  T 

CP  S 11630 

30  CONTINUE 

CPS  1 1660 

PL  Cl,  U  *  -S30TC1)  . 

CPS11650 

PL  (2.  2)  “  -S007C  21 

CRS 11660 

PLC3.31  ■  -S00TC31 

CBS11670 

PL  1 2.  1 }  «  P6AB  C3)»XLNU7Hin 

CPS  1 1680 

PLC3.ll  »  -P3AB<2)*SL«GTHI  i  » 

CRS11690 

»LC1,2)  *  -P3ABC3)‘XLNGTH(2I 

CP  S 11700 

PLC3.2)  •  PBAR11i®XLWGTKC2> 

* 

CR'  11710 

PlI1.3)  -  P6A«;2)*XLWGTHC3) 

CRS 11 720 

PL  (2.  3)  *  -PBAPi  1I»XLMGTHC3> 

CPSH730 

C  LOOP  < 

CPSU760 

03  75  JJ  «  1,3  « 

CRS 1 1 750 

I SU3  *  J.J-  3 

CR  S 11760 

yAO  *<  VA03TC  J.| ) 

CPS  1 1 770 

C  LOOP  L 

CRSJ1780 

03  SO  B  «  1,3 

CRS11790 

ifuispcbh  s*, so.es 

CRSUS30 

55  IF  CVC3IB  1 )  fiO.  EC,  90 

CPS  118  10 

VO  SUM  *  0.0 

OR  S 11 820 

C  LOO®  M 

CRS  1 1 830 

03  r-5  !.  *  1,3 

CPS  11 860 

t$U3  »  I  SUB  * 3 

CRS11550 

95  SJM  «  S'JM  ,A  I  (  I  SUB  )*?LC  L  ,B! 

CRS  11 860 

Figure  20.  (Continued) 
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•J  *  *'  *■* 
K 


3?.'* 


^•*>» 


r*§£ 


VEEODTfJJ.K)  -  V*0*SUM 
<0  CDNTINUE 
75  CONTINUE 
C  LOOP  N 

03  *03  K  •  U3 
tfUISSMKM  11C,105»  110 

no  !mvc3<k>»  loi.ioi.ns 

US  S<  «  StK) 

soir  «  SL- jF !  It'.) 

IFtSOIF)  120.  120,125 
120  IFU8SU.K))  120.130.135 
125  tOSt  UK)  •  1 

135  FSP3  »  FSPDF  t  3  ,X )  *XKE  t  I»K)*SD!F 
IF(PSPO)  1*0. 1*0,190 
__  1*0  FSPD  •  0,0 
CD  T3  190 

130  SP  «  SK-FSP8AP.  tl  ,KI 
C  FSPBAR  •  SBAR-f  SP08AR/KE 
I e ( SP  )  150,155.155 
150  FSPD  -  0.0 
GD  TD  160 

C  COMPUTE  FSP3  PE*  NEW  EXTERNAL  5**1  KG  LOAD-STROKE  CURVES  T/25/72 
155  FSPD«  FSPOFt  !,KI 

GO  TO  160 
GO  TO  157 


GO  TO  UO 


CRS11870 
CRSU880 
CRS11890 
CRSU900 
CRS 11910 
CRS119Z0 
CRS11930 
CRS119A0 
CRSil«»50 
CRS11960 
CRS11970 
CRSU980 
CRSU990 
CRS  12000 
CRS12010 
■CRS  12020 
CRS  12030 
CRS  120*0 
CRS  12050 
CRS 12060 
CRS 12070 


IF  tSP.GE.S8i  t,X) ) 

IF  tSP.GT.SAt  I  ,K) ) 

FSPO-FSPOM  t.K) 

IF  tSP.GE.SIt  !,K>) 

FSP3*FSP0*SP/S!U,K) 

GD  TD  160 

157  FSPO«FSPi)  Ml,K)*tSP-SAft«K))  *<F  SPt>*F  SP01  tt  .K))/t$B(t  ,K1— S A t l.K)  ) 
160  IFtSOOTtX))  16*.  165, 170 
170  NMU.K)  «  0 
GD  TD  190 

165  tFlMM(I.Kt)  19C.175.190 

_ 175  NMM.K)  «  l 

PSP6AR ( I ,K )  ■  SR-FSPO/XXEt 1 »X) 

C  t ISA  1 

190  XV  •  AH  3*K  )*FiPU 
XVDCI3.K)  «  XV 
Vi  «  VEEOOTt l.K) 

V2  •  VEEOOTt  2,Ki 

V8R  -  SORT!  Vl*>l+V2*V2) 

1FIV6B)  210.21C.200 
200  XV  •  XML't  l,K)*XV/V88 

XVDCt  l.K  )  •  XV»VEEOOTt  l.K) 

XVDC(2,K)  «  XV*VEEDOTt 2,X> 

210  IS  •  0 

C  LOOP  0  ■  ,  - 

DD  220  4  *  1,3 
SUM  *  0.0 
.C  L00»  R 

03  230  L  «  1.3 
IS  »  IS.l 

.30  SUT  *  SUM-A 1 1 I S)*XVOCt  L.K) 

220  PSPtJ.K)  «  SUM 
C  ENO  OF  l DOF  N 
105  CONTINUE 
C  CRASH  FORCES 

03  ?*0  J  «  1,3 
SUM  •  0.0 
03  250  X  •  1.3 
250  SUM  ,  SUM*FSPtJ.K) 

2*0  XCU)  •  SUM 
C  CP  AS  H  RDM  ENTS 

XC(A)  »  PS9  t  3.  t  l*XL  NGTHt  2 )  -  F  $P(  2  ,3 1  *XLNGTH  t  D  i 
.<CtSi  *  FSPI  1.2)*XLNGTH(3)-FSPl3.i!»XLNGTHtl) 

XC  ( 6  )  •  FS9  l  2  •  l)*XLNGTHtl)-FSP(l,2)  *XLNGTU  <2 1 


C. 


RE T JAM 
EMO 


CRS 12130 
CRS121*G 
CRS  12 150 
CPS  12 160 
C*S  12170 
CRS 12 180 
CRS  12 190 
CRS12200 
CR  S 12210 
CRS  12220 
CRS  12250 
CRS  122*0 
CRS  12250 
CRS  12260 
CRS  12270 
CRS  1.2230 
CRS12290 
C*S  12300 
CRS  12310 
CP.  S 12  >20 
CR512330 
C*  S 12  3*0 
CRS 12 350 
CRS 12360 
CRS  12370 
C®  S 12380 
CRS  12  390 
CRS  12600 
CRS  12*10 
CR  S 12*20 
CR5 12*30 
CRS12**0 
C*S12*50 
CR  S 12*60 
C*  S  12*70 
CR  S 12680 
CRS  12*90 
CRSI250C 
CRS  12  510 
CR  S  12  520 
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CRS 12 330 


SUSA3UTIRE  EUlERtA.RHJ  , THETA, PS!  ) 
13PUC1T  R£4L.*i  JA-H.IWI 
DtNENSlON  4(9) 

S IM( X )  «  OSIRDI 
C3SCX )  •  0C0S(  A) 

SI  •  STRIP))!) 

Cl  •  COSIPHt) 

32  •  S  INI  THE  T4  ) 

- C2  •  cost  THE  14  ) 

S3  •  SINIP51I 

C3  *  cosipsh 

fl(U  •  C2*C3 

4(21  «  C2*S3 

4(3)  •  -S2 

4(4)  -  ™C1*S3pJH>S2«C3  . 

4(51  »  Cl»C3*il*S2*S3 
4(6)  »  S1*C2 

4(7)  •  Sl«S3»a*S2*C3 

4(8)  •  -SI*C3*Ct*S2*S3 
4(9)  «  C1*C2 

PE  TUAN 

no 

SUM0UT1NE  NATRIUM  ,R,C) 

('•Pl.ICtT  REAL**  (4-M.O-2) 

- 0P1ENSI0N  4I3,2>,»(3,3!,C13,3) 

c  a»>  n  £ 

03  16  t  »  1,3 
03  10  J  »  1,3 
SUN  »  0.0 
03  20  K  «  1,3 

—  .  20  SUN  *  SUN *4  ( I  ,*)«*(  X,J) 

10  Cl  T.J)  •  SUN 
RE TU*N 
€40 

JUM3UT1NE  K4TVCCM,V,P,ISM) 
1NPUCIT  AE4(.*«  (A-m.O-Z) 

.  _  OINENSION  4(3. 2), 9(31,6(3) 

C  A*V  73  >  )E  IS*  •  C,  Et  SF  4T*V  TO  6 
03  10  1  «  1,3 
SUE  «  0.0 
03  20  K  «  1,3 
)=()$«)  40,30,40 

-  ..30  SUN  »  SUN*  At  ( ,KI«yj  Kl 

C3  T2  20 

40  SUN  .  SUN*4(K,!)*y(K) 

20  CONTINUE 
10  *(  I)  o  SUN 
RETURN 
END 


CAS  12540 
CAS10010 
CRS 10020 
CAS12550 
CRS 125*0 
CRS125T0 
CRS 123(0 
CRS  12390 
CRS  12(00 
CRS  12410 
CAS  12  620 
CRS  12630 
CRS  12 640 

CRS 12650 
CRS12660 
CRS 12670 
CRS 126(0 
CRS1269C 
CRS  12705 

CRStftJKU 

CRS12T20 

CRS12730 

CRS12T40 

CASi.me 

CRS  12760 
CRS12776 
CRS127I0 
CRS 12790 
CAS  12  (00 
CRS12M0 
CRS  12(20 
CRS  12(30 

CRSU840 
CRS  12(50 
CAS  12  (60 
CRS  12(70 
CRS12((0 
CAS12(90 
CAS  12900 
CAS  12910 
CAS  12920 
CAS  12930 
CRS  12940 
CAS12950 
CRS  12960 
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SUBROUTINE  INPIT 

isp. ic tr  *ealp«  ia-h.o-zi 

»EAL*4  PL3T(3CCC0I.ZA«,TMrL0T{500) 

DIMENSION  INBUFI  761 

DIMENSION  SCI  AC,  31 .  ZAF  12001  , 1  PLOT  f  ISO) .  I DPLOT  (ISO  I 

DIMENSION  I  Cl  SC'ftJCI  SO)  ,PHM  JL90)  , THE  I  JI80 )  ,PS  I  U  (80 )  ,WGf  1 40  ) , 

1  XII  4C).YII  401,21(40)  ,XYI<4C)  ,YZH40>  ,XZI  (401  ,HEX  (401  .  HEY  140  1, 

2  HEZ(40l,ALir*(40)  ,XI4C),V«4  0I  •  2(401  .  PHI  (40)  .THETA  (40 ).  PS  It  401  •, 

3  0(40),  VI  40)  »M  40  s PI  40)  .3140  ,*140)  ,XD0T(43I  ,Y00T  140 ) ,  200T  (40  ), 

4  PHI  OUT (40),  TFEOOTI  40)  .PSI00TI40)  .UOOTI40)  ,VOOT  1 40 )  .MOOT  1*0  ) 

01 MCN  S  ICN  A (J( 4),*! <  9) ,AJ(9I  .A  I  OCT  (9  I  ,0X140 1  .0YI40 )  ,  02  I40'»  , 

1  f!>HI140),0THCTA(40).0PSI  (40  ,0(6)  ,DF  16)  .XXI40)  ,XY  (401  ,X2(40), 

2  X.!  40),  XM  40  t ,  XN(  40)  .DELI  140!  ,XIlt43)  ,X  I  2  (43  )  ,XI3(49). 

3  XI 4!  40)  ,  X  I  51  40).  XI  6(40)  ,XX(2880)  ,F  T*  A®  (  2  860)  .FM3AR3  (6 , 6.  80  I , 

4  FM<  2080),  XKR  IN(  10,6,80)  .VEEI480)  ,VMAX  (480)  ,NN(40 .3 ) .  NN2(  40, 3) 
OIMFNS  ION  XKI  3(9,6.00)  ,31  Jl  360)  ,C!  J(360!  ,01  J(T20!  ,Xl  OAP. 140, 3  ) , 

1  XXL 0 API  3).  ISP(40,  31.11  SP(  3«  ,XNU(40,3)  ,XXE(40,3)  .OAK 360), 

2  185(40,3).  18  £2(40.  3)  .  SU  40,3)  .  SF  140,3  !  .  FSPOF  (45  .3  )  .PHI  OP  (40  ). 

3  TMFO?(  40)  ,PSnP(4  0)  ,PSP3A»(40v3)  .  =  SP?A2  (40 , 3  )  ,X  LK'CTH  (3  ) ,  XC  (6)  . 

4  X3?(40).Y0P(  40),2  0P(40).FM3:6,6,80)  .  VEf  2  16,83 )  .  V  EE  DOT  (3,3) 
DIMENSION  P0CT(40),000T(40)  .POOK40)  ,N(48C)  ,N3  (93.6)  ,DVS  IGM6I. 

I  X<S(  4320).  XK  £3(9.  6,  SO)  ,XXI  (4320)  .TITLE!  101 
OIMFNS  ION  XlBAPZf  40,3)  , !  S®2  ( 40, 3 ) ,XNUZ 1 40 ,3 ) ,XXE2 (40 ,3) , 

I  X4  3?  6,  6,  80)  ,  4MAX2I  6,  ?G) 

DIMENSION  XOL0I4O).  Y0L0140)  .ZOlOUOI  ,PM  I  0L0I43 )  ,TME  OLD  1 40)  , 

I  PSIC10I40I .PCLD140) .COLOI 401 .POLOIAOI  .UOL0I4O) , VOLD140 ),  MOLOC4C 
DIMENSION  XXXI  (0)  .XXJI  80)  ,XYM80)  ,XYJ(80)  ,XZ»( 831  .XZJtSO), 

1  XL  4  I  30 )  •  XL  J I  (01  ,XMX(  80)  ,  XNJ(  80)  .XNKI80)  ,XNJ(80> 

DIMENSION  OXIJIBOl.OYI  JI80)  ,C2!  JI80) 

DIMENSION  »IN(40),0INI40),»IN(*0)  ,PI  N0I43)  ,01  NOI40  }  ,  XIN0I40 )  , 
l  0PINC40I,D0IN(4C)  .0AINI40I 

OIMFNS  ION  001  6  l.OPXl  40)  .0PYI40)  .0PZI40)  ,DPL<40) ,0PH (401 , DPNf 40) 
DIMENSION  CI6,E0l.:0A«f8O)  .0X0AI6.801 
OIMFNS  ION  XACC(40),YACr,I401  .ZACCI40I 
DIMENSION  SOMOF(6.SO).TPUPT{80|  .IXUPTI805  .JRUPTUO) 

OIMENSION  TPEMflOl.IPFNI  80) 

DIMENSION  IJPPIT6I 
OIMENSIOH  A  I  TA  J(  9) 

DIMENSION  FSPCK40,  3)  ,SA<40,3)  .S8I40.3) 

DIMENSION  0*K  76) 

COMMON  OR  I 
COMMON  FSPOI.JA.SB 
COMMON  A  t  TA J 

COMMON  XN8AK , XP8AR , VNRAR , YP8AS , ZNSAR ,ZPBAR,TPFN 
COMMON  SUMO*.  TRUPT.OXOA.se 
COMMON  X*CC, YACC.Z4CC 
COMMON  C.CRAP 

COMMON  (,0.0P  X.  CPY.OPZ  ,OPL  .OPM.DPH 

COMMON  P  IN,OIN.PIN,PIf)0,OtNO,»I  N().O.r-I.N ,001  N,P*I N 

common  gxu.ovu.rzt  j,zg 

common  XXX,XXJ.XrX.XYJ.XtX«x;.J,XLR,XL.‘.XMK,.XMJ.XH».jXNJ  . 

COMMON  XOLD.  YOLO.ZOLO.PHIOLO, ThECLO.ps I  OLD,  POLO, SOLD, ROLO.UOLO, 

1  V3L  0,  KOLO , !)  T  2,0Th»  LF 
COMMON  PH) ,  ThF  1A.PSI 

common  OIJ.pSICOT.THFCOT .PMIOOT .ClJ.X.Y.Z ,XI J.Y!J,ZIJcO,OF 
COMMON  A  1,4  lOOl.AJ.A)  J.ox.3  Y.OZ  .OPHI  ."IHFTA.OPSI  ,OVS  ION 
COMMON  VEE.FM&tR.AM.AXS.XKt  ,VMAX 

COMMON  XX,  XY.  XI,  XL.  Xm^n.LO  )  ,AL  I  f  T.XC  ,P.O  ,R  ,U,  V,  ¥ 

COMMON  L'D3T.V0CT.W3>IT,XZI  1. 1  ,Z  I  ,HE  l  ,X!  ,XY  I  ,Kf  X  ,  1  I  ,MEY ,  OCL  I 
COMMON  POOT,  XI  I,  XI  2  ,  XI  3,000  T,X'  5  .XI  4, ROOT  ,  X 14  ,XOOT  .  VOCT  ,  Z30T 


CRSI29T0 


CRS10490 
CRS10500 
C°S105X0 
CR  S 10520 
CPS  10  530 
C*  S 10540 
CRS105S0 
CftS 10  660 
C«S  10570 
CRS10560 
C*S 10590 
CPS  10600 
CRS10610 
CRS10&20 
CPS  10o30 
CRS  10640 
CRS00180 
CRS10660 
CRS  10670 
CRS 10680 
ICRS  10690 
CRS  10  700 
CPS1071C 
CRSI0720 
CRS00230 
CRS00240 
CRS002  50 
CRS00280 


CRSI3280 
CRS00  30C 
CRS13310 
CRS13320 
CP  S  13330 
CRS  10340 
C*  S 13350 
C»S  13360 
CP  S 13  3  TO 
C«S  I33SO 
CPS00400 
CP  S  13400 
CPS134I0 
CP  S  13420 
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■eesmsm 


C3MX0-,  XLB4R  «SF,FSPnF,XXE,FSP8AR,XKU,Vfc'£aOT 

C3"A3N  XGD37,  YGOOT,  2  GO  07  ,PPft  ,&Ptt  ,RPR  ,?H?  PP.YHEPR,  PS  1PR 
C3NN0N  PHIPP »  YHEOPt  P  S10P  »X3P.YO?»2DP»OAI»OELTAT*I  NAX  *T  IKE, 
C3NN3N  PHI  I  J.T'rFIJ.PSl  U.XX  ,CU,XXL6AR,St  .XLNGTH,  ( P 
C3XX1N  NM,  I.J.ILAST.lTAetJ,  t  TABa,IJL!J,IJKL!J,lJKK,tJl,tG, 
1  ITA8P,  IJXL .  I  TABLI,  IPS! NT,  I  TA8  Lf  •!  LI NES . NPR,  IGS  . US  P.  ISP, 
C3M<3N  XRiiPT,  !RU°7,  JRC'PT 
C3'*t3>J  lNp»,!!>£N.KPEN 
C3KN3N  I JPR 

C3-X3V  PL3T,ZAR,7NPL0T,lPLnr,IDPL0T,tPl.$W,!PlC.JPL0T,.NPLGT 
F3UI VALENCE  I  XLGAR2I  1 .  1 ) .  XL  8  A«II  1  ,  II )  ,  (I  SP2  (1 .  II  ,  I S  Pit .  t)  I, 

1  (XMt)2(  1.  1 1 .  X“UI  1.  I)).!  XKE2il  ,L  J  tXXEIl .1)  I  .  (XK3  1 1  .  1 . 1 > ,XK 

2  (VNAX2I  1,  U  ,  VNAXI  111 

F3UIVA1  F.NCE  I  XX  SI  1 1  ,  Xf  S3!  1-1,1)  )  ,  JXKf! II , XKI3 1 1 , J  ,11), 

1  (XLRINIl,  1.  i),FKBAR(ll)  ,(FM(l  )  ,FH3  II  .1  ,  1  <  I  ,  ( VEE  (1 1  ,VEE2( 
E3UI VALFNCE  I  FX3AR  (  1  I  ,F«8C»  3  ( 1 , 1  ,1))  .(Nil)  ,  N3  1 1  . 1 1 )  ,  (NN 1 1  • 
1  SX2!  ",  1)  I  ,  f  F  IP8A3  I  1,1!  .FSP6A21 1  .11  I  .II8Stl.ll  ,  IBS2U.  HI 
REAP  tOO,  TITLE 
100  A1PAATUOA8) 

»EAD  200. N-.  I  PRINT,  I  TAPI  E  ,3EL  TA  T  ,  T-AR 
IFfOELTATI  17,17,18 
17  NX  •  0 
CD  T3  1000 
CONTINUE 

IF(NX|  1000.  ICC0.16 
F}MATC3t3,  2612.0) 

F3RAATI6E12.01 
IGS  •  0 

C  READ  THE  I.J.PHIIJ.THEl  J.PStt  J 

15  P  E  AO  *00.  I,  J.PhltN,  THFIN.PS1IN 
F3»x*T(2I3.  3E12.0I 
IFIt)  GO,  SO,  2C 
IGS  IGS+1 
TCI  IGS  I  «  I 
J5IIGSI  «  J 
PNIIJI  IGSI  -  PHIN 
THFIJI ICS)  -  TEC  IN 
PS  If  J  ( ICSI  -  P  5 1  IN 
G3  73  15 
C  PEAO  WEIGHTS 

50  READ  300,  (WSTiI),t-l.N*) 

C  REAP  X3XENTS  ANO  INERTIA  PROOUCTS 

»EAO  300,  (  XII  I), VI  (  tl ,7!  II  ) .XYl 111 .Y2III ) ,X2i (I) ,1*1, NN) 

C  READ  ANGULAR  XONENlUX  CONpONENT  S 

*E AO  300.  I  HE  XI I )  ,HE  VI I )  »HE2  ( II  «!  *1  «NH) 

C  REAP  AMDOYNANIC  LIFTS 


TITLE 


CRSOOAAO 
CRS00360 
CRS13A50 
CRS0OA7O 
JC, tT  A8, CR  S 13 A70 
I8S,N,NHCRSQ0*90 


.itplot 


II I  >. 


l.m 

1). 


18 

19 

200 

300 

16 


AOO 

20 


REAP  300 
C  AEAO  If.  OATA 
<*EAO  300 
REAP 
»EAP 
REAP 
READ 
AEAO 
»EAO 


1  AL  IFTCI  ,i»l,NP| 


300, 

300. 

30C, 

300. 


50  0 


XGD07,  YGOOT, 2G00T 
PPR.CPR.1PR  ’ 

PHIPR.TH?PR,»SIP»  .20 
I  XDP(I),YOP(  I)  ,OPII)  ,1-l.NNI 
I  PH10P1  I)  ,  THEOPII  I  .PSIOPIII  ,1-1  ,NX) 
300.1 1  XL6AR2II  ,XI  .X-1.31  ,1  -1  ,NN) 

500.  HIS°2ll,R).X-l,3l»l-l,NM) 
F3RXAT(2AI3< 

reap  300.  II  X**L-2I  I  ,<  I  ,K*1 ,3i  ,1-i  ,N«! 

»EAO  3C0.II  XX  Ell  I.XI.X-1.3J.I-1  ,Nk) 

«F  AO  700,(11  XX’IL.X,  I  JI.L-S  ,61  ,X-1  .6)  .1  J-1.IG3: 
»FAO  303,{(VWA>2(l,tJ),l-l«6),IV-!,IGS) 
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CRS10900 
CRS  10910 
CRS 10920 
CRS  10930 
CR  S 10940 
CAS  10950 
CRS  10960 
CRS  13540 
CR  S 13550 
CRS13SAC 
CRSUOOG 
CRSUOIQ 
CRS  11020 
•:ftsuo3o 
CRS110A0 
CRSI3570 
CR  S 13580 
CR  SllOTO 
CRS 13600 
CRS13610 
f.RS  S3620 
CSS  1J630 
CRS  13  6A0 
CRS13650 
CRS  13660 
C*S1S670 
CSS  13680 
CRS  13690 
CR  S 13700 
CR  S 13  710 
CRS 13720 
C*S 13  730 
CRS  13  7*0 
CR  S 13750 
CRS 13 760 
CRS13770 
CRS1J730 
CRS 13790 
CR  S 13800 
CRS  13810 
CRC13820 
CRS  13030 
CRS 138*0 
CRS 13850 
CRS13titC 
CP  5 13870 
CSS13880 
CP  5 I3C90 
CRS137G0 
CHS  13910 


TjVaAklVJ  »  jftrt.W-.-Tfftfla 


CRS13920 


C  REAO  <MtJD  tfS.  ABSIVPRIHEIIJLH 

READ  300.  ( I  0»DAI  L » V  J !  oL*l,6),lJ*l,!GS) 

READ  300.  ( 1 1  XRRINt  l  »L  «I  Jl  ,t  *1  ,1  TA6LS1  ,L*i  »fcl » t J*1  •  }CS) 

REAO  300, H  SI  I  I,K),SA(I  ,X>,  SB 1 1  ,K1 ,SFIl  ,K> « FSPOII  I , r.) , 
t  FS*3Ft!,K>.K«1.3>,I»t.N>0 
REAO  300.  IC8AAIIJ)  ,IJ*t,13St 
C  READ  PLOT  INDICATORS 
NP1.3T  »  0 

_  JN  •  HR 

03  30  I  »  1.25 
JF<i.EQ.13)  J«  *  ISS 
READ  928,  INBUF 
928  F3R<ATI76U» 

03  AO  J  •  l.JH 

_ IF  (NPLOT. 60.150)  00  TO  30  . 

IF  ( tV'SUFI  J  )  .  EO  oC)  SO  TO  AO 
NP13T  «  NPL0T*1 
10PL0TINPL3T)  «  1 
IPL3TINPL0TI  »  J 
AO  C3NTINUE 
30  C3NTINUE 

READ  301,  INOP 
301  F3R6ATU0IZ1 

IF  I  INOP .63. 0)  CO  TO  65 

READ  300,  XNBAR.XPBAR, VN8AR  «7PB AR .ZN6AR ,ZP8 AR 
65  RFAO  928,  I JPR 

t  IF  WE  <10W  HOW  MANY  PLOTS  WE  WANT,  WE  CAN  FIGURE  OUT  MOWNAHT  POINTS 
c  per  plot  we  car  have,  altho  we  pon»t  WANT  MORE  THAN  500,  BECAUSE 
t  WE  COULON’T  NOTICE  THE  RESOIUTI  ON  ANYWAY. THE  REST  OF  THIS  FIOURES 
C  OJT  H3W  OFTEN  TO  SAVE .  A  TRUNCA  TfO  I  TPLOT  WILL  TRY  TO  SAVE  TOO  MUCH 
~t  AND  THEN  WE  W3UL0N«T  CE  T  TO  TWAX,  BUT  IF  WE  WOULD  ALMOST  GET  THERE 
C  IT  KILL  NOT  BE  NO  ?  ICFABLE  ON  TNF  PLOT. 

IF  INPLOT.EO.C)  GO  TO  60 
TO  IP  «  30000.-NPLCT  I 

IF!  IP  .GT.500I  IP  «  500 
FITER  *  TNAX/0ELTAT«2.0 
IT  PLOT  »  FI  TER /IP 
IF(  ITPLOT.EO.OI  l  TPLOT  *  l 

IF{FtTtR/II»«ITPL0T).CT,l.002)  I  TPLOT  »  JTPtOTU 
60  CONTINUE 
C*»«.«*P*IWT  OUT  INPUT 

900  F3RRAT  I  •I’.lCASl 

901  F3RNAT  (  ,  NH,  IPR  IN  T  ,  I  TAJLE  .OELTAT.TKAX  M 

902  F3RNAT  {  IX, 31  5, IP2E  15.51 

.  903  F3RR A  f  I  «  I.J.PHII  J  .THE  I  J,  PSIt  J  •  » 

90A  F3RRAT  I  IX,  2  1 1,  l»3E  1 5.  51 

905  F3RRAT  I  •  WGT  •  ) 

906  F3ANAT  S  1X,IP(E15,5)  , 

907  F3RAAT  (  •  I,Xi;t),Yni),2tMI,XY!(I!,vn  III.UKII*  I 

908  F3RRAT  t  IX.  I  5  .  IP6E  1 5. 5) 

909  F3R1AT  I  •  1 ,  HEXII I  ,HE  Y1  i  I  ,HE2t  II  •  I 

910  F3RRAT I IX, I  5.  IP3E 15. 5) 

911  FIRRAT  t  •  Ai  IFT*  )  , 

912  F3RRAT  (  •  XGOCT • YSOOT ,ZGOO  T  *  ) 

913  F3R1AT  I  <  PPR, QPR.RPR*  ) 

914  FDRNAT  I  •  RHIPn,TMcPR,PSfFR,l 

..  915  F3RRAT  !  *  I  ,  XRPI  I)  .  YOP(  I )  ,  20RI1)  ’  ) 

916  F3SRAT  1  •  I  ,PKII)P(  I  )  .THEDPl  I  )  .PSIOPlIl  •  ) 

917  F1RNAT  I  •  1,  LBAR  (1,1),  L  PAR  (  I  >2)  .  L8AIS  U  .31  •  1 

918  F3RNAT  (  •  1 ,  SP  II, II-  JP  ( i  ,2  ,  SP  II. 31*  ) 


CRS1396Q 


CRS13980 


CRSaeio 
CRS1I620 
CRS11630 
CRS11640 
CRSI1650 
CRS  11 660 
CAS  1 1 670 
CRS  11680 
CRS 1 1 690 
CRS  It  730 
CRS11710 
CKS1X720 
CRS 11730 
CRS  II 760 
CRS  11  750 
CRS  1 1 760 
CRS 11 770 
CRS 11 780 
C*S  11  790 
CR  S 11800 
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919  F3*4AT  I  •  f,  NUd.li,  W  U* 21.  «U  It,?)*  »  CftSimO 

920  F3A4AT  (  *  1,  KE  (1,1),  Kf  I!,2>.  Ki  (I. SI*  )  CA5U020 

921  FJRVAT  (♦  IJ.K.  XKl  1,K,IJ1.XK12.<.I  J)  ,XK(  3  ,X,  I JI  ,XK  I4,K,  iJ  I ,  RF.C J,  XCASU830 

It  IJ  J.  XKI6.X.  !J  1  •  I  C RS11840 

922  fJARAT  (1X,2I5,  lPftF:5.5  I  CRS112S0 

925  0»4AT  t  *  I,  VJ*AX{  l»I),V8AXl2»r?»  VKAX  (J  1 1 )  »VH4X  14,  l  liVXW  f  5t  1 1*  VC*  J 11460 

14AXI6,  I »  *  »  CRSUA70 

92*  PJXIt  T  I  «  OXIL.IJJ  FOR  SR  TAStES'I  CBS118A0 

925  FJWT  {  *  I J  ,C,XAf  1 ,1  ,t  Jl  ,XRI2 .1  ,t  J>  ,KA(3  ,L,  I JI  ,KAI4. 1 ,  IJ  I  ,KRt  5.LCAS  11890 


l.IJ).XRf6»L,rj5>  ) 

926  FlftMTI  •  f,S,  SIU.Xl.SAU,K>,SB(I,Kl,SF(l,R».F$POm.«I, 

1  FSPJFlItX)*  ) 

927  F3R'*AmX,6l5I 
PI  19*  900,  TITtE 
FA  I9T  901 

PAW  992,  HR,  IPRI  XT ,  t  TABLE  ,OElTAf ,  TRAX 
PAW  903 

PAW  904,  Item,  JGf  .THE!  JIH  ,FSI!JIS>»:»1.  tGSI 

PAW  909 

PAW  406,  (WGlttt.I-l.HKI 
Ft  {XT  907 

paw  9oa.  i j.xii M.xrni ,2m>  ,xt! in. rnm.xii u },?«!.'«» 

PAW  909 

paw  «io,  n,«xiJi,Metm.HE2in,i»i,HH» 

PAW  911 

PAW  906,  (AUFTin.loliNH) 

.  .  «?MT  9*2 

FA  14 T  906,  XGOCT,rC0Or,2SOOT 
»*W  91 J 

PAW  906.  PPA.QPR.AP* 

Hilt  914 

PA  UT  906,  PHIPA.TMFPR.PSI  PA 
MIST  915 

9io.  u,xCFUi,w®m  ,2nPtn,i-i,HHi 
H»T  916 

MW  910.  II,  PHIOPI  1 1  »TMF3P( 11  ,  PSIDPt  I I  ,1  "l.HW 
NItT  9*7 

PAW  910,  (i,(n.8«R2!!,K>,K»l,?I,(«l,N>«; 

PAW  918 

MW  927,  I!,(!SP2II.K>,*»I,3I  .1-1, HR) 

MW  414 

Mill  910,  II,IWU2(  t»K>  ,X«t,3> 

MKT  420 

PAW  910,  (I  .IWE2I  ?,AI  ,R»i*3)  »l«l  ,HA) 

PA  14  T  921 

PA  W  922,(1  I  J,X.(XK3(L<K.(  J)  ,{.•!  .6)  . K»1 ,6 ) .  I  J«1 ,  ICS 1 
PAW  423 

MW  908,  (I,fV*lAX2C!.,t!.L*t.Al  ,l*l,ICSf 
•  A  TV  T  924  * 

PAW  906,  (  <D»A(l  ,!  J)  ,L«l  ,61  ,t  J«1  ,IGS> 

PPt it  925 

PA  W  922,  II  IJ,t,(XMIHU.L,U)  ,t-l,(TA*ie(,t-l»*>.lJ»l,lCS> 
PAW  926 

PAW  922,(1!.  A, SI  (I  .XI.SMI.Kt  ,S8II  ,KI  .SF  1 1  .*  J  .  *SPOt  (I ,  Ki , 
l  FS>3FU,At,S«I,3l,!«i,N8J 
PS  HI  411 

931  F3A4ATI  •  I.J.CBARIJ'l 

FA  Ill  924,  I  IGI 1 1 .301 1 1 ,C6»* 1 5 1,1’l.tGSI 

429  F3»4AT(  I X«  2 1  5  »!•£ 15.51 

IF  (  I40P.E3.01  CO  TO  1000 
PAW  430 

430  FIRM  T I  •  >,XN8AR,XPSAA,Y*flAA,rP6AA,2H8AA.rPS«A*  S 
PA  H  f  909.  (HOP  i»*SAR  .XP8AA  .TN8AA  ,VP8AA,1N0AA,£P91A 

1000  A F  T;'4  4 

evo 


CBS  11900 


CRS11920 
CRS11930 
CP  Cl 1940 
CAS  11950 
CRS11969 
CPS 11970 
CRSlJ58ft 
CASU990 
CAS1200C 
CRS 120 10 
CAS  12020 
CAS1203C 
Clt*  12040 
CRSl2e50 
CAS  12060 
(*512070 
CAS  120*0 
CAS  12040 
CAsmoe 
CAS12U0 
CKSU120 
CAS12U0 
CA 512  UO 
CAS  12150 
CAS  12160 
CASI2170 
CAS  121(0 
CAS  12 195 
CAS  12701/ 
C4S12210 
CAS  12220 
CAS  12230 
CAS  12240 
CAS  12 230 
CAS  12240 
C1SU2TJ 
CAS  1 22*9 
CAS122®0 
C«S12?93 
CAS  123 10 
CAS  12320 


:4S12JFC 
;fs  14000 


Figure  20.  (Continued) 
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SUBROUTINE  tC 

IMPLICIT  ®EAL*E  (A-H.Q-Z) 

REAl*4  PLOT ( 3CCQ0I .Z Aft  ,  TMPLOT 15  00) 

DIMENSION  SCI  4C»  3) , Z  AR I  2001  ,!PLOm50)  .IDPLOTtlSO) 

01 VEN  S  ION  IGt  8CI.J3I  8C I  «'>H1  I  JI80I  .THE!  J  (80  I  ,  PS  II J  1 80 )  ,WGT  I  AO I , 

1  X!I40),YIt4CI»Ztt40l,XY!(401  ,YZt(40>  ,XZI  (40)  .HEX  (405  , HEY  <40  I, 

2  HEZ  (40I,ALIFT(  40)  ,  XI  40)  ,Y(40)  ,Z(40)  .PHI  (40)  ,THET  A  (40  ) ,  PS  1  (  40)  , 

3  U(  40),V(40!  .4(401  ,P(40)  .0(40)  ,P(40)  .XD0TI43)  .YDOT  t40>  .  ZOOT  (40  )* 

4  PH  tOOU  401 ,  THEOOTI  40)  ,PSI  00T(4  0)  ,UDOT  (4  05  ,VDOT  ( 40 !  ,WDOT  ( 40  ) 

01  MENS  (OH'  A  IJISI.AK  9)  .AJI9)  ,A100T(9)  ,0X  ( 40) .  OY  ( 40  )  ,  CZ  (40 1  . 

1  0’H!(40).OTHETA(40)  .OP SI  (  40)  ,0  ( 6)  .OF  ( S  I  .XX  (40)  .XY  (40)  ,XZ(40), 

2  XL  (  40 )  *  XN  (  4C ) .  XN(  4  Cl  ,OELI  (401  .XI  1(40)  .X  I  2  (4  0 )  .  X  1 3  t'  O  ) . 

3  XI  4 (401.X  I  5(  40)  ,XI  6(401  .X*(28B0)  ,FMftARt2883!  .FMBAR3I6.5.8D  )  . 

4  FMf  28901.  XKR  INI  10,  6,80)  .VFF14S0)  ,VMAX  ('«  80  ) ,  NNI43 ,3  )  ,NN2( 40, 3 ) 

.  DIMENSION  XK  13(9,6, 80!  ,  B I J  t  3601  ,C I JI36Q) , D I J t 723 )  ,X  L8AR  (40, 3  ) , 

1  XXL  BA®  (  3) ,  I  SP(  40,  3 ) ,  1 1  SP(  3)  .XMUI40.3)  .XKEH0.3)  ,OAI(360) . 

2  IBS  (  40,  3)  ,  18S2(  40,3)  ,S!  (40,3)  ,  SF  (40,3  )  ,  FSPOF  (43 ,3  )  .PHI  DP  (40  ), 

3  THEOP  (  40) ,  ®  S  !0P(  40),FSPBAP(40,3)  .FSPBAZ  (40,3)  ,X(.N0TH(3 1 ,  XC  ( 61 , 

4  XOP(40),YOP(40),ZOPi  40)  .F  M31 6  .6  ,80)  .  VEC2  (6,80)  .VEEDOT  (3,  3) 
niMFNSION  POOT(4O),O00T(40)  ,R0(3T(40)  ,N(490)  ,N3  (30  ,6  I  ,0VS  IGNI6  ), 

l  X<  S  (  4320)  .XK  <3(9,  6,801  ,  XK  I  (4320)  .TITLE  (101 
DIMENSION  ABARP»(3.3)  .APR  (3  .3)  .XPPPI3)  .ANCOPK  13)  ,DPR(3,3), 

I  MOP  (3, 31, A  IC(3,3I  ,VIP(3)  ,XV(3)  ,AOPR  (3 ,3 )  .VJP140 ,3  ) 

OIHFNSION  I SP  2(40,3 )  .  XL8A92  ( 40,3 ) 

DIMENSION  xnuO(40),YOLO(40)  ,2010(40)  .PHIOLD140)  .THE0LIM40) , 

1  PS1CLDI40I  .PCL0I401  ,Q3L0(  40)  ,R0LD(40)  ,U0l.D(40)  ,  V0LDI40  ) , HOLD! 40 
DIMENSION  XXK(  £C),XXJ(  80)  .XYKI80)  ,XYJ(80)  .XZKIBO)  ,XZJ(80), 

1  XL*  I  BOI.XLJI fOl.XMKI 80) .XMJ(80) ,XNR(80) .XNJI80) 

0IMENSI3N  DXIJIBOl.CYt  JI80I  ,OZt  JI80) 

0IMENSI3N  P  INI  401  ,01  Nl  40)  ,«IM40i  .PIN0I40)  ,  QI  N0(40  I  ,  RINCI40 )  , 

I  OPIN(40).O0IN(40)  .0FINI40) 

DIMENSION  ODf 6),OPX(40),OPY(40) ,DPZ(40) ,DPL (40) . OPM (40) , DPNI40 ) 

.  0IMENSiaN'C(6.fC),CBAR(80;.DX0A(6,80) 

DIMENSION  XACCIoO),  YACCI40I  ,ZAC.C(40I 

SUM0F(6,80),TRUPT(80)  .IRUPT(BO)  .JRUPTtBO) 

TPEM  80) ,  I  PEN!  80) 

I  JPRI76I 
AITAJ19) 

FSPOK  40.3)  ,SA(40,3)  ,  $5(40,3) 

OR  I  ( 761 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
OIMEN  S ION 
DIMENSION 
COMMON  DR  I 
COMMON  FSPO  I , SA, SB 
COMMON  A  I  TAJ 

COMMON  XN8AR, XP8AR,  YNBAft,YP8AR,ZNBAR,ZPBAR,TPEN 


CRS 14010 


CRS12380 
CRS12390 
CRS  12400 
CRS12410 
CRS12420 
CR  S 12430 
CRS  12440 
CR  S  12450 
CRS  12460 
CRS  12470 
CR  S 12480 
CRS  12490 
CRS  12500 
CRS  12510 
CPS  12520 
CRS12530 
CRS00180 
CRS  12  550 
CR  S 12560 
CRS  12  570 
CPS12580 
ICRS  12590 
CRS  12600 
CRS  12610 
CR  S 12620 
CRS00230 
CPS00240 
CRS00250 
CRS00280 


COMMON  SUMOF,TRUPT,OXOA,SC 

common  xacc, yacc.zacc 

Common  C.C8AR 

COMMON  00,0PX,CPY,?PZ.(V’L,0PM,0PN 

COMMON  P  IN,Q  IN  ,RIN,P  IMO,OINC,RI  NO.OPIN.DQI  N,ORIN 

COMMON  QXIJ.0YIJ.02tJ.ZG 

COMMON  XXX,  XXJ  ,XYR,  XYJ.XZK,  XZ  J ,  XL K  ,XL  J ,  X«K  ,XMJ ,XNK,XNJ 
COMMON  XOLO ,  YOLO  ,20LD  ,PH  !0L  0  ,  THE  CIO  ,  PSI  OLO  .  POLO,  OOLD.ROLO.UOL  0, 
l  V7L0,H0L0.0To0THALF 
COMMON  PHI.  THE  IA.PSI 

COMMON  BIJ.PSICOT.THFOOT.PMIOOT.CI  J.X.Y.Z.X!  J.YI  J.ZI  J.D.OF 
COMMON  A  I,  A  I  DOT, A J.A I J.OX.O Y.02.0PHI  ,OthETA,OPSI .OVS IGN 
COMMON  vce  .fhbap  .FM.XKS  .xki  ,vmax 

COMMON  XX.  XY.  XZ.XL.  XM.XN.ViO  T.ALI  F  T.XC  «p,0  .® -u  .v.w 

common  umi ,  voct . won t » xz i  .yz I  .z i  ,hfz  ,xi  .xvi  .hlx.y  i  .hcy.ofl i 
common  PHOT  .  XI  I. XI 2  .  x!  3.000  T .  XI  5  »Xi  4  .PUOI  .X!6  .XODT  ,YPOT  ,  ZOOT 


CRS  14330 
CRS00300 
CRS  14360 
CR  S 14 370 
CR  S  14380 
CRS  14390 
CRS 14400 
CR  S 164 10 
CRS 14420 
CR  S 14430 
CRS00400 
CRS  14450 
CPS  14460 
CR  5  14470 


Figure  2C. 
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C3MM3N  XLBAR  ,SF,FSPnF,XKE,FSPBAR,XHU,VEEOOT 

COKNON  XGOOT,  YOOOT,  ZGDOT.PPR  ,QP«  ,RPR ,PHI PR.THEPR, PS IPft 
COMMON  PH!OP,THCOP,PStOP,XOP,YOP,20P,OAI,DEnAT»THAX,TIME, 
C3MN3N  PHIIJ  .THEIJ.PSl  U,XK,0I  J.XXLBAR.Sl  ,XLNGTH, IP 
C3MM3N  NM,  I.  J.  HAST,  ITAfilJ.I  TAB6.!  JLIJ.I  JKLI  J.tJKX,  I  Jl,  IG, 
1  KABO,  1 JKL  ,  I  TABLl  t  I  PR I NT* I  TABLE  <1  LINES,  NPK,  1GS  ,  I  ISP,  ISP, 
COMMON  KRUP  T » I  RIJP  T,  JRUP  T 
C3MM3N  INOP.IPSN.KPFN 
COMMON  I JPR 

COMMON  PLOT , Z  AR iTMPLOT  « I  PLOT , ID  PLOT , i PLSW ,IPLC»JPLOT »NPLOT 
E3UI VALENCE  I  PPR  ,  X«PR(  1)1  , 

1  (PHIOPR.ANGOPRd)  I  , (  THEOPR  .ANGOPR  !Z>  S  ,  (  PS (DPR, ANGCPRI3 >1 
£311!  VALENCE  (  XKSI  1)  , XKS31 1 , 1 ,1)  1  , (XKt (1 1 ,XKI3 < l ,1 , 1 1 ) , 

1  (X<R  INI  1, 1,  l),FM3AP(lil,(FM(l}.FM0(l,l,l)  1  ,(VEE!1),VEE2( 
E3U1VALENCE  t  FXBARI  11  «FNBAR  3!1*1  ,11)  ,INtll  ,  N3  ( 1 , 1 )  I,  INN  ( 1, 
1  NN2(  t,  1 1 1 ,  { F  JPBAR  <1,11 , F  SPBA2 (1,1)  1 . !  IBS U ,1)  , !  BSZ  II ,  1)1 
E3UI VALENCE  1  XLBAR2I 1 , 1 1 , XLBAR ( 1  ,11 1 ,{ I SP2 (1 , U , I S P (! , 1 1 1 
S!N(XI  »  OSIN!  >1 

cosm  *  ocosi  >i 

S3RTIX1  *  0S0R11X) 

ARSINIX1  *  OAR  SIN!  X  1 
ATAV?(Y,X)  «  0ATAN21Y.X) 

NT 3T  -  0.0 
00  10  t  *  l ,  NH 
10  war  «  MT3T PWGTI  I  1 
XG0»  -  0.0 
YGO»  «  0.0 
7G0’  -  0.0 
31  20  I  '  l.NH 
XGO»  •  XG0P»WG1II)*X0PU  1 

_ .  YGO’  *  YGOP  ♦NGT!  I  )*YDP{ !) 

20  2 GO9  «  ZGOP*MGT!  I  )*ZOPt 1 1 
XGOP  •  XGOP/NTCT 
YGOP  •  YGOP/WTCT 
ZGQ»  -  ZGOP/WTOT 
C  APPTME  AND  ABARPR  1  HE  13) 

CALL  EOL  ER(  APR  ,PHIPR  ,  IHEPR  ,  PSIPR) 

51  *  SINIPHIPRI 
Cl  •  C0SIPHIPR1 

52  ■  SIN(Tm.FPR) 

C2  •  COS(THFPR) 

C  NON  ABARPRIME  (A) 

ABMOR11.1)  „  1.0 
C.O 
C.O 

S1*S2/C2 
Cl 

S1/C2 
Cl*S2  /C2 
-S! 

Cl/C  2 
(  (I 


CRS00440 
CRS00360 
TITLE  CRS14500 
CPS00470 
JG,  IT  AB,  CPS  14520 
IBS»N,HNCRS00490 


♦  !  T  PL  OT 


1,11) 

1), 


AB AP  °R  (  2 ,  1 1 
ABARPR ( 3, 1 1 
ABARPR ( 1,21 
ABARPR (2,2) 

ABARPP.  13,21 
A8A1PR (1,3) 

AO  ARPR (2,31 
...  ABARPP.(3,3) 

C  ANGIE  03 T  PRIMES 

CALL  NATVECIABARPR, XMPR,AN30PR,0) 
C  0  PR  (A  E  (7) 

O’Rtl .  II  *  O.C 

0}R  (  1,21  *  THFCPR*S1»PS!0PR*CI*C2 
010(1,3)  »  THEOPR*:  1*PSI0PR*S1*C2 
On P  <  2 »  1)  »  -OPR ( 1,2! 

DPR (  2, 2)  *  O.C 

0’  R  (  2 , 3 1  «  -PK10PR»PS!0PR*S2 


CRS 12600 
CRS12810 
CRS 12820 
CRS12B30 
CRS  12840 
CRS  12850 
CRS12B60 
CRS12B70 
CRS12880 
CRS12890 
CRS  12900 
CRS  12910 
CRS  14600 
CR514A10 
CRS14620 
CPS  14630 
CRS14640 
CRS  14650 
CRS14660 
CP.S  14670 
CRS14680_ 
CRS14690 
CRS  14700 
CRS14710 
CRS14720 
CRS14730 
CRS  14740 
CPS  14  750 
CRS  14760 
CRS14770 
CP.S14780 
CRS14790 
CRS14800 
CRS14810 
CRS  14  8  20 
CRS 14830 
CRS 14840 
CRS 14850 
CRS 14860 
CRS  14870 
CRS14880 
CRS 14090 
CRS  14900 
CRS 14910 
CRS  14920 
CRS 14930 
CRS 14940 
CP  S 14959 
CRS1496C 
CRS  14970 


figure  20.  (Continued) 
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DPR!  3,  X)  •  -0PRU.31 
0PR(3,2I  •  -OPRI2,3t 
9®R(3»3)  •  O.C 
C  A  OOT  PRIME  (8) 

CALL  HATmjLIAPR.OPR.AOPRf 
ZCNAX  •  0.0 
C  LOOP  A 

01  AO  I  *  1,NM 
C  At  00 J OLE  PRIME  19) 

CALL  EUt  ER(  AIDP.PHIOPI  I )  ,T-t£OPt  I  »  ,PSIDPII » > 

C  At  <  101 

CALL  NATMUL  (APR.A10P  ,AICI 
THETA(I)  «  -AR$lNI4ICt3.1)) 

CT  «  1.0/C3SI  TFETAt t)l 

_  PHIItl  «  ARSINIA'CI  3,2)*CT) 

PS  II  I  )  *  ARSINIAICI  2,l)*CT> 

C  1 121 

VJPII.l)  ■  XGDP-XOP (II 
VJP  ( I  •  2)  «  YGOP-YDPI  II 
VJPII.3J  »  ZGOP-ZJP(t) 

_.C  LOOP  B 

03  50  K  «  1.3 
IEUSP2(I,K!>  40.50.60 
60  VC  •  AICI3.K)*7L6AR2(I  .KI 
03  70  L  ■  1,3 

70  VC  «  VC»APR I  3. LI* VJP ( t • L 1 
5FIVC-2CMAX)  SC, 50,80 
80  ZCMAX  «  VC 
50  C3NT  tNOF 
C  ENO  OF  LOOP  A 
*0  CONTINUE 

"  '  IF(ZG)  220.21C.220 

..  210  2G  *  -ZCMAX- .  CC100 
C  SEE  IF  PHI".  ETC.  ARE  ALL  ZERO 
220  03  100  I  •  l.NP 

IF(i»MIDO(I)»  1!0,110.150 
110  IF l TMEDP II))  150,120,150 
120  IFIPSIQPtUJ  150.100,150 
IOC  CONTINUE 

r.  IF  WE  GET  HERE  WE  COMPUTE  NEW  THE  TAt  I  »  J)  AND  PSIII.JI 
PI  •  3. 1415926E35897932400 
P 12  *  .500*P  I 
no  200  I J  »  l,  IGS 
I  *  ICt  I J  1 

-  J  •  JGIIJ) 

Xtjp  «  VJP(  J  ,  1  )-VJP  (1,1) 

YIJP  «  VJPI  J  ,  2  i  -VJP  I  1,2) 

Z!J>  •  VJPI  J.3T-VJPI  1, 31 
IF(YIJP)  140,  13C.140  « 

130  IFIXIJP)  180,  170.180 
..  180  PSI1JI  IJ»  «  O.C 

THEIJIIJ)  «  -A  TAN2I  Z I JP  ,  XI  JP) 

GO  T3  200 

170  PSHJt  IJI  •  O.C 
THE  I J  I  U)  «  ”P  12 
IFIZIJP)  160.2C0.200 
_  160  THEIJIIJ)  “  PI2 
C3  to  200 

I  AO  PSUJIIJI  *  ATAN2IYI  JP.XIJP) 

THEIJIIJ)  «  -AIAN2IZ  IJP.SORTIXI  JP*Xt  JPAYI  JP*YIJP}) 


CRS 14980 
CRS 14990 
CRS15000 
CRS  150 10 
CRS15020 
CRS15030 
CRS 15040 
CRS15050 
CRS  15060 
CRS 15070 
CRS150B0 
CRS 15090 
CRS  13420 
CRS 13430 
CRS  13440 
CRS13450 
CRS1S180 
CRS 15 190 
CRS 15200 
CRS 15210 
CRS  13220 
CR  S 15233 
CRS  15240 
CRS15250 
CRS15260 
CRS15270 
CRS 15280 
CP.S  15290 
CBS  15300 
CRS15310 
CRS15320 
CRS15330 
CR  S 15340 
CRS15350 
CRS15360 
CRS153T0 
CRS15380 
CRS 15390 
CRS  15400 
CRS 15410 


CRS15430 
CRS 15440 
CRS15450 
CRS15460 
CRS  13470 
CRS 15480 
CRS15490 
CRS  15500 
CRS  15510 
CRS13600 
CHS  15530 
CRS  15540 
CRS1S550 
CR  S 15560 
CR  S 15570 
CR  S 15580 
CR  S 13870 
CRS  13830 


A 


Figure  20.  (Continued) 


200  CONTINUE 
C  lcopc 

15  0  03  90  I  *  It NM 
VIPU1  -  VJP(.I.l) 

VIP  1 2 1  ■  VJB(  t»2) 

V IP!  3 1  «  VJP<  t  f  3) 

C  (15) 

CALL  HATVECUPPVVIPfXVtOS 
XVI3I  •  XV13WG 
xen  •  xvm 
Ytll  •  XV!  21 
7!  11  *  XV! 3) 

C  (151 

CALL  NATVEC  i  ADPR  t  VI P  tXVtOI 

XVUI  •  XV(  1 1  *>G0QT 

XV!  2 1  »  XV(  2 1 +  YGOOT 

XV(31  ■  XV(31*2GOOT 

X00TUI  »  XVtll 

V03TC  II  »  XV( 21 

703T(  II  «  XV«  31 

.,C  -(16 1 

CALL  *ATVEC(A!CtXV,VIP,tl 
U(  IS  *  VI®t  11 
VCD  -  VIP!  21 
Will  *  VIP!  31 

C  (IT1 

_  CALL  MATVECUtOPtXHPPfVIPtU 
»( u  »  v(p(  ll* 
out  «  VIPIZI 
P(I1  «  VIP! 31 
C  AIBA*  (181 

St  •  S1NIPHK  1 11 
Cl  •  COSJPH I (  Ill 
S2  •  SINITHETAIIII 
C2  •  C0S(TMETA(II1 
ABAAPR  ( It 21  •  J  1*S2/C2 
A8AIPR I 2t2)  •  Cl 
A8AAPM3.2I  ■  SI/C2 
AS A1PS  (  L . 3 1  «  Cl*S2/C2 
A8A6PA (2*31  •  -SI 
A6A1PR  (  3c  3}  «  CI/C2 

C  (191 

CALL  MATVEC !  A8ARBR t VIP *XV. OJ 
PHIOOTU)  *  XVUI 
THE03  T i  1 1  *  XV!  29 
PSI03T! 1 1  ■  XV(3I 

c  cnd  loop  c 

90  CONTINUE 

PI  IV  T  301  . 

SOI  F3PAATUH  t  MJtTHEI  JU Jl  fPStl  J(I  J1 '  1 

PAINT  300t(  IJf  YHEtJt  IJ1.PSJ  I  Jtl  J1  ,IJ'lf  ICS/ 
300  F3RNAT  (1H  ,  I  5 ,1P2*  1 5. 51 
RETUAN 
ENO 


CRS15610 
CPS  15620 
CRS 15630 
CPS  15650 
CRS 15650 
CPS15660 
CRS  15670 
CRS15680 
CRS 15690 
CRS 15700 
CRS15710 
CPS  15  720 
CRS  15730 
CRS 15760 
CRS  15750 
CRS15760 
CRS157T0 
CR.U5780 
CRS  15790 
CPS15800 
CR  S 15810 
•“RS 15820 
CRS15830 
CRS 15860 
CRS  15850 
CRS  15860 
CRS  15870 
CRS15860 
CRS 15890 
CRS  15900 
CRS  15010 
CRS  15020 
CRS  15930 
CRS 15960 
CRS 15950 
CRS  15960 
CRS  15970 
CRS  15980 
CRS 15990 
CRS16000 
CRS  16010 
CRS  16020 
CRS  16030 
CRS  16060 
CRS 16050 
CP  $16060 
CRS  16070 
CRS 16080 


CRS  16090 
CRS  16 100 


Figure  20.  (Continued) 
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SUBROUTINE  PR  INT 
IMPLICIT  REAl*f  1A-H,0-Z> 

REA.*4  PLOT!  30  COO  I  .ZAP  •  TMPLOTI 5001 

OI«ONS(ON  SC{  4C,3).ZA«<200)  . I  PLOT (150) • 1 DPLOT ( 150 ) 

DIMENSION  IG<  8C).JS(  FOI.PHI 1 J<80)  .THE!  J 180)  ,  PS  It  J  (80). KG)  (40). 

1  Xt(40)»Y!(4C). 21(40)  .XYI  (40)  ,YZ((40> ,X7I  (43 )  .HEX  (40) .  HEY  (40). 

2  HE2  (40)  .At  1  FT(40)  ,  X(  40)  .Y140I  .1(40)  ,PM1  (4  0)  .THETA (40) .  PS  1(40), 

3  0(40).  V(40)  .  v(40l  .P(40)  .Q  1 40)  .R (401  .X00T(43)  .TOOT  (40)  ,  ZDOT  (40  ). 

4  PHI00T(40I ,  TFEOCTI  40)  ,PS100T(40)  .UOOT(VO)  .  VDOT  (40  )  .hOOT  (40  ) 
DIMENSION  4IJt<l,A!(S),AJ(9)  .AID0TI9)  ,DX(  40)  .  DY  (40  )  1 02  (40 )  , 

1  O’Hl  ( 40).  0 THETA  (40  )  ,0PS1  (  40)  .0  1 6)  ,0F  ( A )  ,XX(40)  ,XY  (40)  .XZ  (40  )» 

2  XL  (  40).  XX  (  4C  I.XNi  401  .0EL1  (401  .XU  (401  .X 12  (40)  .X  13  (40)  . 

3  XI  4(  40).  X  I 5( 40) .XT  6(40) ,  XP( 2880) *P  MB  AP ( 28R0) .FMBAR3 (5 .& < 80  > , 

4  SMI  2880).  XKR INI  10. 6,30) ,VEf(480) .VHAX (4 80 ) . NN< 40 , 3 ) ,NN2( 40, 3 ) 
DIMENSION  XKI  3(9,  6,  80)  .01 JI360) ,C I J (360) ,01 J ( T23 ) . X t BAP (40,3). 

1  XXL9ARI  3).  I  SPI40.  3)  ,11  SP(  3)  ,XMU(40,3)  ,X  KF  (  A  3 , 3 )  .  OA !  ( 360 1 . 

2  I3S(40,2),  IBS2(  40,3!  ,SI  (40,3)  ,  SF  (40 ,3  > .  F  5  PDF  (4  3  ,3  ) .  PHI  DP  (40  ), 

3  THEOP(40I.PSIDP(40),FSPBA»  (40.3)  ,F  SPS  A2  ( 40.3 )  ,X  LrtCTHt  3  ) ,  XC  (6)  , 

4  XOP  (40).  YOP(  40)  .ZOP(  40)  .F  *«3<  6  .6 .801  .  VCf  2  (fc.801  .VfctCOT  (3,  3) 
DIMENSION  FOOT  (40)  ,0001(40)  ,  MOOT  ( 401  ,N(4R0) ,NS (90.61 ,DVS I0N(6), 

1  X<S(  4320)  .  XXS3(  9,  6.80)  .XXI  (43  201  .TITt  FUOI 
0IMF.NSI3N  XOI 01 40).  YOLO  (40)  » 7010(40!  ,  PH  IT  l  0  (43  )  .TH  EOLDI 40 1 , 

1  PSIOL0I40) .PCL0I40) .Q0L0I40) ,RCL0(40)  .U0LDI40) , VCL0140 )  ,  WCL  01 40 
DIMFSSION  XXXI  (d.XXJI  80)  ,XYK(  80)  ,XYJ(80)  ,XZX(83)  ,XZJ(801, 

1  XLX  (  80) ,  XL  J  (  (0)  .XHXI  80)  «XHJ(  80)  ,XNK(80)  .XNJI83) 

01  MEN  S  ION  OX!  JIROI.OYI  J(  801  ,CZ1  JI80I 

DIMENSION  P  INI  40)  ,3IN(40i  ,X)N(40)  ,P)N0(43)  .OINOiAO)  .RIN0I40), 

1  D»IN(401.00INI40)  ,n»!N(40) 

DIHENS  ION  0D(  61.0PXI  4  0)  ,0»Y(40>  ,0P2(40)  , DPI (40)  ,DPH (40 )  ,  DPN (40) 
DIMENSION  C(S,F0I.CBAfW80)  .0X0AI6.80) 

XACCI40I.YACCI40)  ,2ACC(40I 
SUMDF(6,80),TRUPT(80I  .IRUP.TI80)  .JRUPTIBO) 

TPEN18.0I,  IPENI  801 
I JPR (761 
AITAJI9) 

FSP0K40.3)  .SA140.3)  ,S8(40,3) 

09  1 1  76) 


CRS16110 


CRS14410 
CRS14420 
CRS14430 
CRS  14440 
CRS14450 
CRS  14460 
CRS  144  70 
CRS1448C 
CP  S  14490 
CRS 14 500 
CPS  >4510 
CRS  14  520 
CRS  14530 
CRS  14540 
CRS  14550 
CRS14S60 
CRS00180 
CRS  14580 
ICRS  14590 
CRS  14  600 
CP  S 14610 
CP  S 14  620 
CRS00230 
CRS00240 
CRS00250 
CP.S00280 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
01  MEN  S ION 
DIMENSION 
COMMON  DR  I 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


FSP3I. SA.SR 
A  I  TAJ 

XN6AP ,  XPRAR. YN8AS , YP8AR.ZNBAR ,Z?8AR,TP6N 
S1)“DF,  TPUPT.OXOA.SC 
XACC  «  YACC.ZACC 
C.C8AR 

BO.OPX.CPY.OPZ.DPL.-OPM.DPN 
COMMON  P  IN.QIH  .RIN.PIHO.OINO.RI  NC.OPIN.DOI  N.DRIN 
COMMON  0XIJ.0YIJ.O2I  J.ZC 

COMMON  XXK,XXJ,XYK,XYJ,XZK,ZZJ.XIK,XLJ.X«K,XMJ,XNK,XNJ 
COMMON  XOLO.  YOLO.  ZDI.P,  PHI  PL  O.THECLD.PS  I  OLD.  POLO.  OOLD.RCH  CtUOLO. 
1  VOL  D.WOLO.O  T2.0  thalf 
COMMON  PHI,  THE  IA.PSI 

COMMON  3IJ.P  StCOT.THfOOT.P-UOOT.CI  J  ,X,Y  ,  7  ,  X<  J  ,Y  1 J  ,  Z I  J,  0.  OF 
COMMON  AI,AIOOT,AJ,A!J,OX,OY.02,CPHI  ,DTKE  T  A  .DPS! ,  CVS  (ON 
f  jvnon  VEE.FMDAR.FM.XKS.X4l  .VRAX 

COMMON  XX, XV, XZ.XL.XH.XN.WJT ,Ai I 'T  ,XC ,P.C. ».«. Y*W 
COMMON  OOOT.uOCT.tI'JOT.XZI  ,Y2I  .21  ,*:'2.XI  ..NY I  ..“FX ,Y I  »“EY , DEL  i 
COMMON  POOT.XI  I.XI2  ,  X!  3.300T  ,XI  5  ,P  i  4  ,PDr;T  ,  X  ( 6  .XDOT  .  Y  DOT  .  'DOT 
COMMON  '134P  ,  SF  <F  SO  OF  ,XKF  ,  F  J  P'-AP  ,  x  wj  .  V  EEDOT 

COMMON  XGD3T, YCOOT.ZCDOT.PPPjOPF -RPC , pH  I  PR .THE  PR,  PS  I  PR 
COMMON  PHI  JP  ,  Tt-EOP.PS!  PP.XOP  .  YDK  ,ZnP.<06|  .CELT  AT  »  T  MAX  ,T  (HE,  T  I ILE 


CDS  26400 
CRS0030C 
C»S  16430 
CPS  (6440 
CPS  16450  ‘ 
C*  S 16460 
CPS  14470 
CRS1648C 
EPS  16490 
CRS IS 500 
CRS00400 
CRS 16520 
CRS2&530 
Cp  S  16  540 
CP  S0O4F0 
CR  SCO  '*69 
C.PS  16570 


F  ]  i v  ;rc  20  ■  ( Conti  miso  } 
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C0M3II  PHIIJ.TFEIJ.PSIIJ.XX.niJ.XXLSAR.Sl.XLMGTH.IP  CPS0Q870 

COMON  NN,  t.J.  ILAST.ITAEUJ.I  TA96  ,1  JLtJ.l  JKltJ.I  JKK.1JL,  IC.JGt  IT  A3,  CRS  16590 
l  ITA8D,  IJNL,  ITA8tl«!P<»m,|TASLE,tLI*iCS.NPP,!GS*nSP.  ISP.  t8S,N,INSNCRS00*90 
C3.M0N  XROPT,  IRUPT,  JOUPT 
CONNON  l*N0°  .  IPEN.KPEN 
COMNON  IJUR 

COMMON  PLOT.ZAR.TKPLOT.IPLOT.IDPLOT.IPLSW,!  PLC.JPLCT.NPLOT,  ITPLOT 
FO'Jl  VALENCE  (XKSI II  .XX 531 1.1.1)  I  .IXKltll  ,XK!3(l,lit)li  CRS 1*800 

1  (X<R  INI  t,  l,  lI,FM3ARtlI  J.IOMIU  .FM3(1,1.1S1,IVEEUI,VEE2<1.  X 1 1  CRS 14810 

F9U! VALENCE  I  FP3A«(  1  I  .FM8AR3U  .1  .11 )  .  IM1 1  ..N3  { 1 , 1 1)  ,  CNN(  1*  1 1  ,  CRS  1*820 

1  NV2tt.in.(F£P8ARIl,l),rSPBA2Il.l)l.«!BSIl.lI,lBS2U,l))  CRS  1*830 

IL  INFS  '  60  CRS  1*8*0 

I»L  -  6  CRS  1*850 

ITT!’  «  9 

FORCF  NFW  PAGE  C* S 16670 

NPR  •  1000  CRS 16680 

13  99  I  «  l.NM  CRS 16690 

IF  I  IL  1NES-NPF-IPL)  10,20.20  CRS16700 

10  PRINT  100,  TITLE  CRS16710 

100  FOPNATI  1HI,  1CAE./1  CRS16T20 

OR  IN*  2C0,  T I WE  CRS  16730 

200  POMATUM  ,  6HT  IME  «,F9.5,/1  CRS16740 

PRINT  300  CRS  16750 

PRINT  *00  CR5 16760 

PRINT  500  CRS16770 

PRINT  600  CRS16780 

PRINT  900 

300  F0»N4T<1H  ♦  1 8X  ,1HX»  1*X,  1HV,  iAX.lHi.l  3X,3HPHI  »t  IK  »5HTHET  At  CRS16790 

1  nx.SHPStl  CRS  16600 

*00  F0MAH1H  ,  17X,*HXOOT,UX<*HY0OT,11X,*HZDOT,1OX,SHPMZDOT,  CRS16810 

l  ftx.  RHThFTAQO  7, 8X,  6HPSI00T 1  CRS16820 

500  FD»*AT(1H  ,  l  6X,  1HU,  l  *X .  1HV,  1  *X,  IHW.1*X ,  IHP  ,  1*X  ,1MQ,  1*X,  1HR  »  CRS16830 

600  PORNATUH  ,  lTX.AHUJOT.UX.AHVOOT.llX.AHVOOT.llX.AHPDOT.UX,  CRS168*0 

1  *H300T,  IlX.AHROOT)  CRS16850 

900  FOMAT  <  1H  ,  16>,6HXACCEL.9X.6HTACCEL.9X,5H/ACCEL,/> 

N^P  *  ITTL  CR S 16860 

20  NPR  «  NPRMPL  CR S 16  060 

PRINT  700.  I.XUI.VI  11  ,1111  .PHI  (II  .TMETAU  1  ,PSt  It  I  CRS  16890 

PRINT  800.  XOOim.vnnTUI,ZOCTUI,PH!OCT(tl,TKFDOTm,PS!OOT(M  CRS16900 

PRINT  300.  UIII.VIII. hill. P til. OIII.RI!)  CRS  16910 

PRINT  800.  UDO  Till.  VOO  T(I),W00T(11,  POOT  III,  OOOT  life  ROOT  til  CRS16920 

PRINT  300,  XACCII  I,  YACCU)  .ZACCU) 

PRINT  809  CRS  16930 

700  POMATUM  .5HMASS  ,  I  2, 2X.1P  6F  1 5.  51  CRS169*0 

800  F3MATUH  ,9X.  1P6E15.5)  .  CRS16950 

99  CONTINUE  CRS  16960 

PRINT  fOO 

830  FOM  A  T  (  1H  .  •  1GIIJ).  JGI  Ul.S'JMDF  [  1 ,1  J)  .SUM0FI2.I  J)  ,S‘J*0F(3,  IJ1,* 

1  •SUNOFI*.  IJ»,£UM0F(  5,1  J!  .SUYDF  1 6  « I .))  ') 

PR  INT  810,1  IGI  IJI.JGUJI  ,<  SUMOF  I  K.I  J1  ,X»l  .61 , 1  J*1  ,  IGS 1 
PRINT  851 

831  F33NA1 1  1H  .  *  IGIIJ),  JGI1J1  ,VFF2il  .1  J1  ,V£E2  (2.1  JI.VEE2  (3,  U*  ,Vf  E2  K, 

1IJ  1,  vc?2t  5,  I J  I  .VEE2I  6,1  J)  •  1 

PR  INT  810,1  TG t  IJT.JGI !  J!  ,(VEF2(K  ,1  Jl  ,K-1  .6)  ,1  J»1  .IGS) 

810  FORMAT  |  in  ,  IX,I2.2X.:2,2X.1P6E15,5! 

PRINT  33? 

832  POMATUM  ,  ’  I ,  <C  1 1  .  1 1  ,  SC  (I  .  21  .SC  U  .3  >  '  1 
01  -.0  I  *  i.NH 

03  50  -  1.3 

IFUSPU.Jl.NE.O)  GO  10  60 


Figure  20.  (Continued) 
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50  CONTINUE 
GO  TO  *0 

*0  «m  820.  I,t!C(I,J),J»l,3l 
620  FORNATUM  ,  IT.SX.IP3E15.5) 

*0  CONTINUE 
ISFT*  0 

03  70  1*1.76 

IF  1  IJPRUI.EQ.Ot  SO  TO  70 
IF  ItS6T.EQ.lt  SO  TO  65 
PAINT  821 

#21  FOX* AT ( 1M  //1X,‘*ASS4.7X,‘0XI  M 
1S6T«  1 

65  PAINT  622,  JGUI.06;  Itl 
70  CONflNUf 

822  FOPNATUH  . IX.  I2.3X. 1PE 15.51 

RETURN  CRS 14870 

jMO  CHS  16830 

SUBROUTINE  SAVE 

INPLlCIT  R6AL*t  tA-M.O-21  CXS00010 

REAIP4  PLOT (  3CC09)  ,2AR,TMPLGT(500! 

DIMENSION  SCI  AC.  3  i  .2  A8I200I  f  I  PLOT  <  150) .  IDPLOTtlSO) 

DIMENSION  tCI5C),J3I80l,PH!  IJI80I  ,THEI  J(BO)  ,PS  1 1 J  I8C)  .MGT  (40 »,  CRS00020 

1  XII  60),  YU  60. 21!  60)  ,XY!  1 60)  ,YZI(40I  ,X21 160)  .HEX (60)  ,HEY  (60).  CRS00030 

2  HE2  ( 601 .  At  I  FT!  60) )  X(60) .  Y(60)  ,2  (60).  PHI  (60)  .THETA  (60)  ♦  PS  It  401 .  CRS00040 

3  01 60),  Vt  60 1 ,  «  601 .  P(  60)  .0  ( 60)  .6  (60) , XOOT 160 )  .TOOT  (60 )  •  200T  (60  ><  CR500030 

6  PHIOOT(60),The0OT(  60). PS!  007(60)  .UOOTUOJ  .VOOTIAO)  .MOOT  (60  )  CPS00060 

DIMENSION  A 1J ( Sl.AI ( 8) . AJ{ 9 ) .A! 007(9) ,0X(60) .OY 160) ,02(60) .  CXS00070 

1  0SH I  ( 40),  OTHETAI 601  .OPS!  (60), 0(6)  .OK  6 1  ,XX(6Q  ,XY  (40)  ,X2(60).  CRS00080 

2  X*  (  40)  «XMt4G).XNt4£)  .OF  LI  (40)«X!1(40)  ,X12(60),X!3(60).  CRS0908Q 

3  XI 41  401.x  I  51  60).  XI  At  401  .XX!  28*01  .FN6A8I2883)  .FM6AR3 (i ,6, 80 ) ,  CPSOOIOO 

4  *4(2880).  XX*  IMS  10,  6,801 « VSE  *480)  .YMAXI480 )  .NNI40  ,3 )  ,NN2! 60, 3)  CRS00110 

OIMFNSMN  XX  (  2(9.6, 80)  ,8IJ(360)  ,C1  J(360)  ,0t  JI72S!  ,XLBA*(60.3),  CRS00120 

1  XXL 6 AP ( 3) ♦  I SP( 40. 3) . I !  SP(  3)  .XMUI40.3)  ,XXE(43.3)  .0AK360),  CRS00130 

2  I8S(  40.  3) ,  18  521 40,  3)  ,S!  (40, 3),  SF  (40, 3)  »F$POF  (43,3),PHI0P  (40 ),  CRS00140 

3  THEOP( 40)  ,P S !0P(  40)  .FJP8A*  (40,3)  .FSPBA2  (40,3!  .XLNSTHO) ,XC (61 ,  CRS00150 

5  X3P(60).YOP(  40).20P(4C).FH3(b,6,R0)  .VEF2  (6,80)  .VEEOOT  (3.3)  CRS00160 

OIMEMSION  POO  T  (40) .  OOOTI 40!  .BOOT  (40)  .NI4B0I  ,N3  1*0  ,6 1 .  DVS  ICSM6  >,  CRSC017C 

1  X4St  4320) .  XX  S3(  8,  6, 601  ,  XK II  4320)  ,  TI TLE  i  10 1  WS0018C 

DIMEMS ION  XOLO ( 40) , YOtOt 40) ,20t0(40) ,PH!010(40) ,THEOtD(40).  CRS00180 

1  PS (010(40), PCL0!40), 00L9( 40), POLOI40) .U01D140! , VOLO(40t,HOLO(40)C*S00200 
DINeMSION  XXX  (  £0)  ,  XXJ(  80)  ,XYF.(80)  ,XYJ(80)  ,X2X(80)  ,X2J(60).  C*S00210 

1  X. < ( 80) , XL J ( 10) ,XPXt  80) ,XPJ( 80) ,XNK(8P) ,XNJ (83)  CXS00220 

DIMENSION  3X1  J(*0),0Y!J(80)  ,02!  JI80I  CRS00230 

DIMENSION  PIN  (401 ,3  INI  40)  ,7  I  MAO)  .PINOI43)  ,0!NO(40)  .PIN0I40)  ,  CRS0Q230 
l  O3 INI 40) , 00 INI 40)  ,f)P INI 40)  CRS00240 

Ot«ENS  tON  HOI  t),OPX!  40  ,0^(40)  .OP2I40)  ,0Pl(40)  ,0PN(60)  .  DPN140S  CRS00250 
DIMENSION  Cl  6,  (0)  ,1 8  AR I  80) , DXOA (6,80)  CRS00  280 

DIMENSION  XACC(40I,  YACC I  40)  .2ACCI40! 

DIMENSION  SUH0FI6.80)  .TRUPTIBO)  .1RIJ»T(80)  ,J*OPT(801 
OiMFNSlON  TPENI80..IPEMI80! 

DIMFNSION  I JP*  i  76) 

DIMENSION  A  I  TA  J(  9) 

DIMENSION  FSPO  1(40,3 )  .SA(  40,3)  .58(40,3) 

DIMENSION  OP  1 1  76) 

COMMON  0X1 
.  COMMON  FSP3t.SA.S8 
COMMON  AITAJ 

COMMON  XN8AA , XP8AR, YN5AR , YP6AR.2N5A* ,2PSA* ,TP6N 
C0H63N  SUMOF,  TSUlPT.OSOA.SC 
COMMON  XACC , YACC.2ACC 

COMMON  C.CBAR  CRS00280 

C3MM3N  DI),OPX,CPV,OP2,OPL.OPM.OPN  CRS0C300 

COMMON  P  IN. 0 IN  .RIN.  P INO.O! NO.Rt  NO.DPIN.OOI  N.ORIN,  CRS00320 

COMMON  0X!J,0Y!J,02!  J.2G  CRS00330 

COMMON  XXX. XXJ  ,XVK, XYJ.XZX. X2 J .  XIX  ,XL J . X  NX  ,X MJ  ,XNK , XNJ  CRS00340 

COMMJ.v  XOLO,  YOLO. ZOLO.PHIOLO.THECLO.PSIOU).  POLO.  COLO, *GL 0,UOLO,  CPS00  350 
l  VOLO,MOLO,OT2,OTHALF,  CPS00360 

COMMON  PHI, THE  IA, PS!  CPS003T0 

COMMON  BIJ.PSIfT'T.THECnT.PMIDOT.C! J.X.Y.Z.X! J.Y! J.2IJ.O.OF  CRS00360 

COMMON  At.AIOOt.AJ.A! J ,DX,3 Y,OZ ,0PM! -OTHE T A.OPSI , 0V5 ION  CRS00380 

COMMON  VSE,FN8A*,FN.XXS.XXt.VHAX  CRSQ0400 

COMMON  XX.KY,X2,XL.XM,XH.WJT,ALIFT,XC,P,0,R,U,V,W  CPS00410 

COMMON  UDOT  ,  VOCT.MOO T  ,  X2 1  ,  Y7 1  .21  ,HE2,XI  ,XY!  .HEX.Y  t  .HFY.OELI  CR 500420 

COMMON  POOT.X!  1,X!2,XI3,000T.XI5,XI4,P'J0T  ,XIS ,XDOT  ,YCOT  ,  200T  CPS00430 

COMMON  XLB4R  .S'.FSPUF  ,XXF  .FSPOAB.XKU.VFFOOT  CRS00  4  40 

COMMON  XC03T,  VCDOT.ZI.OOT.PPR.QPS  ,RP*  ,  PH  I  PR,  THE  PR,  PS  1  PR  f.*S'J0360 

COMMON  PHIOP,  THFPP.PSIOP.XOP.YOP  ,ZC?P,CA!  ,  CELT  At  ,TNAX, TIME.  TITLE  CXS00460 


Figure  20 .  (  Cont  inued. ) 
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f.3H«l3M  PHtlJ.THEIJ.PSlU  ,XK ,01 J .XXLNAR.Sl  .XLNCTH,  IP  CAS00470 

C3NN3N  NS, t.J,  ILAST.  IT&BI  J,1  TAB&.IJLIJ.I  JKLS  J.I  JKK.IJL.  IC»  JO,  IT  A8.CRS00490 
1  ITA90,  IJXL.nAeU.lFRtNT.ITAeLE.IUNES.NPA.tGS.tlSP.  ISP»  I6S,N,NNCRS00490 
C3X>MN  KRUPT,  IPUPT,  JRUPT 
C3NN3N  INOP  »  IPc'J  »KPE N 
C3N<3N  IJPR 

C3NN3N  PLOT  . 2 AP.TMPl  OT,I  PLO  T,!OPLCT,  I PLSW ,  I PLC .  JPLOT .NPLOT  » ITPLOT 
F3UIV4LFNCE  <  XX5I 1  >  ,  XKS3I  t ,  I  ,U  t  ,  ( XXII 1)  .XKI3U  ,1  ,11 !  ,  CAS00410 

1  I  X<P  IN  1 1,  1,  1  I.FM8AR  (lM>IFH(l)»FN3II,l»l)),tV£Etlt  »VEE2 1  1,1)1  CRS00420 

E3U! VALENCE  I  FWAKI  1 1  .F^BAR  31 1  •  t  .It)  , t Nt  1 )  ,M3 1 1 ,1 )  !  ,  (NNI 1. 1 ! ,  t A $00430 
t  NM2(  l.U),(F<P9ARll.n,FSPBA2U  .  i ) ) ,  U  9  S 1 1 , 1 1 , 1  #32  11 , 1 1 1  CRS00440 

IPLC  •  u 
JPL3T  •  JPLOT*  1 
IFIJPLO'.ST.IP J  RETURN 
TSPu3T I  ;PL3T  I  *  TINE 
03  30  I  •  l.NPLOT 

is  «  ip^ptii) 

?0  •  lOPLOTIT) 

03  13  II,  2.3,  4. 5.4,7, 9.  »,  1 0,11 .12  .13  .14  ,1 J  ,  l*. 17. 18, 1*.  20.21. 
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1  T  .  XUS! 

03  T3  30 

2  T  >  V{  IS! 

03  T3  30 

3  T  .  2  I  IS! 

C3  13  30 

4  T  •  XDOTIIS)  ...  _ 

03  T3  30 

IT*  rOOTUSl 
03  T3  30 

4  t  •  f dot;  is) 

.  03  T3  SO 
?T.  XACCIISi 
03  T3  30 
•  T  .  VACCI ISA 
CO  T3  30 
’IT"  I  ACC  I  IS ) 

03  n  so 

10  T  .  SCI  IS, 1) 

02  TO  SO 

11  T  «  SCI  IS. 2) 

03  T3  30 

12  T  -  SCIIS-  »» 

C3  T3  30 

13  7  .  VEE21 1.  t  S  !  . 

63  T3  30 

14  t  .  VCE2I2.  IS! 

03  T3  30 

15  T  -  VEC2I3.  JSI 

63  TO  30  ’ 

U  T  •  VEE2I4,  IS! 

03  T3  30 

17  T  .  VEC2I9.  IS! 

03  T3  30 

!•  T  «  VEE2I6.ISI 
G3  T3  » 

»  T  .  SUN0FI1.IS)  . 

03  T3  30 

20  T  ■  $040*12,  IS) 

03  T3  30 

21  T  «  SU**OF|  3,  t  S ) 

GO  T3  30 

22  t  .  str*oF;4,iS! 

03  T3  30 

23  T  ,  SUMCFIS.ISi 
03  T3  30 

24  T  .  S'JNDF'6,  IS! 

03  T3  30 

29  To  OUt  IS  I 

30  PLOT |  |MI  t-  1 ) ♦  JPLOT)  »  T 
RFIJRN 

CTf) 


Figure  20.  (Continued) 
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SUBROUTINE  PR IKTM(4 , 10,1LINE) 
IMPLICIT  REAL*F  (A-HeO-ZI 
DIMENSION  413,2) 

PRINT  \00«  I0.IL5NS 
too  FORMAT  ( 1H  , 'MATRIX  •  ,A  A,'  ON  PAGE 
PR  ITT  200,  t(Alt.J)  ,J-l, 31 , 1*1.3! 
200  FORMAT ( 1M  ,iP2E20.t0) 

RETURN 

END 


CRS 16990 


,131 


CPS  17000 
CRS17010 
CP  315230 
CRS17030 
CRS 17040 
CR5170S0 
CRS17060 


SUBROUTINE  TOL® 

IMPLICIT  REAL*<  (A-N,0-2) 

PEAL* 9  PLOT!  3CC00)  .ZAP ,  TMPt  OTI500) 

REA.  *4  OElX.DE{.Y.Dt.X,DlV,X=MT,Yr  PT.YNIN,YNAX,XNIN,XPAX 
DIMENSION  SC(4C,3),ZAR(200)  ,!YCMAR(3)  ,L  I T (31  .NAMES (25) , 

1  IPLOTI  ISO) ,  I0P10TI 150) 

DIMENSION  IGI  80  ,  JO  (  80 )  ,PHf  I  J(  SO  I  ,  THFI  J  ISO  I  ,PS  I!  J  (80 ) ,  MGT  (40 ), 

1  XK40S,  YI  (  4CI.ZH  MCI  ,XY!(  4CI ,  YZI  (40)  ,XZI  (40)  .HEX  (40) , HEY  140  I, 

2  H£2(4G),ALIFT(  40)  «  XC40I .  Y  (40)  .ZI40I.PHI  (40)  .THETA  (40 ).  PS  I  <  40) , 

3  Ul  40).  VI 40).  >(  40),  PI  40)  ,01401  ,R(40>  ,XOOT  (43)  ,YDOT  (40),ZOOT  (40), 

4  PHI  00T(  401 »  TFEOOT  (  40)  ,P  Si  DOT  1 40)  .UOOT  (AO )  ,VOOT  (40 1  .MOOT  (40  ) 
OMENS  ION  AtJ(S).At(9I.AJ(9).AI0QTt9),DX(4O).0Y(40>.0Z(40). 

t  0*H  1 1 40).  DTNETAI 401  .OPSt  (40!  .0(6)  ,0F(6)  ,KX(40)  ,XY  (40)  ,XZ  (40), 

2  XL  I  40),  XM(  4C).XN(  40)  .DELI  (40)  , XI  1(40)  ,X  1 2  (40 )  ,X  13  (40) , 

3  XI 4(40), XI SI  401. XI  6(40)  .XXI 288  01  ,FM8AR(2883)  ,FnPAR3(6,6,8Q  >, 

4  FM  (  28803 ,  XKR  INI  10. 6, 80)  ,  VEE  (480  ,VMAX  (4  80!  .NNI40.J  )  .NN2 (40. 3) 
0IMFNSI3N  XXI  2(9,6,  8CI  ,UtJ(  360)  ,C!J<360)  .01 JU20)  .XLBAX (40.3 ) . 

1  XXL 8 API  3).  ISPI40,  31.IISPI  3)  ,X*»U(40.3)  .XXFI40.3I  .0AK360), 

2  i3S  1 40,  3) ,  I B  S2(  40,3!,SI(40t3)  .SFI40.3)  .  FSPOF  (43  ,3  I  r  PHI  OP  140 ), 

3  TMEOPI  40)  ,P  S  IDPI  40)  .PSP8AR  ( 40,3)  ,F  SPBA2  140 ,3  (  ,X  INGTHI  3)  ,XC  16)  , 

4  XDP(40).ynP(40).ZnP(40),FM3(6,6.80)  ,VEF2  (6,83) , VEEDOT  <3, 3) 
OIMFNS  ION  PD0YS49I.QDOTI401  .ROOT  (40)  ,N(480)  .H3  (80,6 )  ,OVS  IGNI6), 

1  X<  5(43201,  XX!  3(9,  6. 80)  .XKII432Q)  ,TJ  TLE!  10) 

DIMENSION  XOLDI40I,  V0L0I40I  ,ZOLO (40) ,PH t OLO (40 ( . THEOLOI40) , 

1  PS I0LGI40)  .PCL0I40)  ,QOLO(  40)  ,R0L0(40)  ,J)OL0(40)  . VC*L0(4C),M0L0(40 
01  "FUSION  XXX  (  €0)  ,XXJ!  80)  ,XVX(80)  .XVJIRO)  .XZXIS3)  ,XI J(80). 

1  Xi.<(80),XU(  (01  ,  X"X(  80) .  XMJI80)  ,XNK(80)  ,XNJI83) 

OIMFNSION  OXIJIPOI.OYIJISO)  ,OZt  JI80) 

DIMENSION  P 1M  40!  ,3 INI 40)  ,R INI40)  »P!  N0I43)  .QEN0I40)  ,RIN0(4CI, 

I  D*  IN  1 40),  00  INI  40)  ,0«IN(40) 

DIMENSION  001  6),DPX(  401  ,DPY(40I  ,0PZ(40I  ,0PU40)  .OPMI401 .0PNI40I 
0IMFNS13N  CIS,  (01  «CBAR(  801  ,OXOA  (6,80) 

OINENStON  XACC  1401 ,  YACCI40I  ,  ZACC  140) 

DIMENSION  SUMOF|6,80),TRUPT(80)  ,1RV)PT(80)  .JPUPTIBO) 

OIMFNSION  TPEN 1 80) , I  PEN! 801 
DIMENSION  I JPR  (  761 
OIMENSIDM  AITAJI9I 

OIMFNSION  FSP0I(40,3I,SA  140,31,55(40 ,3) 

OIMFNSION  08  1(761 
COMMON  OR  f 
COMMON  FS*0 1 »  SA,  SB 
C0MM3N  AiTAJ 

C3MM3N  XNBAR  ,  XP8AR  ,  YNBAR  «YR8AP, ZN8AP ,ZPB*R  ,TPEN 
COMMON  SUMO*.  TR*JPT.OM)A,SC 
COMMON  X»-CC.YACC,ZACC 
CO“MON  C.CBAF 

COMMON  DG,OPX,C»Y,OPZ,OPL,OPM,OPN 

COMMON  P IN,0 IN  ,RIN,P INO.QINO.Rl NO.OPIN.OOI  H.DRIN 

COMMON  OXSJ.OYIJ.OZIO.ZG 

COMMON  XXX,  XTJrXYX.XYJ.XZX,  XI  J,XLX,XLJ,XMX,XMJ,XNX,XNJ 
COMMON  XOLO.YOIO.ZOLO.PMIOLO.TMECLO.PSI  01 0, POLO, GOLD. ROL C.UCLO, 
l  VOLO,MQLO ,  OT  2,0  THA  I.F 
COMMON  PHI,  THETA, »SI 

COMMON  BIJ.PSIOOT,THFOOTc»MlOOT,CI J.X.Y.Z.XI J.Yt J,ZI J.O.OF 
COMMON  A  I, 4 inOl.Aj, A  I J.OX.J Y,OZ .DPMI .OTMFTA.OPSI  . OVSICN 
COMMON  VFE  .FMBAR.r  M.XXS  ,XX!  .VNAX 

COMMON  XX,  XY.  XZ.Xl.  XN.XN.NJ  T.AL!  FT.XC.F.O.R.li.V," 

COMMON  UOOT.VOCT,NOnT,xn.Y21  ,Z(  ,MEZ,XI  ,X  Y  I  .HEX  ,Y  I  ,HEY,  DEL  l 
COMMON  POOT.  XI  1.XI2  .XI  3.000  T.X!  5  .XI4.P00T  ,X  1 6  ,  XtJOT  ,  YOOT  ,  ZOOT 
COMMON  XLR»P  .SF.PSPCF  ,XXE  .FSPRAM.XHU.VEEDCT 


CRSGC010 


CR 500020 
CRS0Q030 
CPS00040 
CRS00050 
CPS00060 
CRS00070 
CRS00030 
CPS00090 

cpsooioo 

cpsoono 

CPSOO  120 
CPS00130 
CI1S00140 
CPSOO  ISO 
CPSOO 160 
CPSOCl/O 
CPS03180 
CPSOO 190 
ICRS00200 
CRS00210 
CPSOO  220 
CR  S  00  2  3  0 
CPS00  230 
CRS00240 
CRS00250 
CRSC0280 


CPSOO 290 
CPSOO  300 
CRS00  320 
CRS00330 
CPS00340 
CPS00  350 
CRS00360 
CPSOO  370 
CRS00380 
CPSOO  390 
CRS00400 
CRS004J0 
CRS00420 
CPS0043C 
CN  500440 
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C3<M3N  XG03  T .  YCOOT.  ZGDOT  .PPR.QPR.RPP.PMI  PR .THEPR,  PS  t  PR  C*S093i0 

C3*(r3N  PHIOP.THEOP.PStnP.xnP.YDP.ZDP.OA!  ,OE LTAT.T MAX.T  tME.T 1TLS  CRS00460 
CSINON  PHUJ.TFEIJ.PSnj.XX.OIJ.XXLBAIi.Sl  .XLNGTH,  IP  CR500470 

C3'CON  NP.I.J.  IlAST.ITABf  J.1TAB6.I  JLIJ.I  JKLIJ.IJF.K.IJL.IC.JC.  ITAB.C8S  00  480 
1  ITABOc  IJXL,  ITABH.IPRINT.I  TABLE.!  LI  NF S, NPR, ICS, I  ISP,  ISP,  I8S,N,NNCRS00490 
C3MATN  KRUPT,  IRUPT.JRUPT 
C3MN3N  (NOP. IPEN.KPEN 
C3M43N  IJPA 

CDNON  PLOT  .ZAP.  TMPC  OT ,  I  PLO  T.IOPLOT.I  PLSW , !  PLC « JPLOT  .NPLOT  » ITPLCTT 
E3UIVALENCE  (  X«S(1I ,  XK  S3!  i  .  t  ,1 I 1  ,  (XXI  ( 1)  ,XK  13  (1 .1 , 1 » 1 .  CRS00410 

t  IXAHKIl.  t.  1  l,F**BARIlll,<FHIl  J  ,F*3U.1,1 1 i.  IVEE(l)  .VEE2I1.  ih  CRS00420 
E3UI  VALENCE  ( FPBARI  l ! .FH8A3 3 1 1 , l ,1 1 1 . 1 N( 1 1  .N3 1 1 .  t ! )  .  INN  1 1. 1 )  .  CRS00  4  3Q 
1  N*2(l.OI.(F<PRARU.n.FSPBA2(UlHlU0SU.n»lSS2U.l>>  CRS00440 

DATA  LIT/*!  »*.*  I  *,*,  )  •/ 

DATA  NAHFS/*  X  *.*  V  *.*  Z  *  «  *XOOT*  »  ' VDOT •  ,  *200?  *  » 

1  •  A>  *,*  AY  *,*  AZ  *,*  SI  *.*  S2  *.*  S3  *, 

2  •  VI  V2  S’  V3  *,*  V4  *.*  V9  *.*  V6  •. 

3  •  FI  *,«  F 2  «,*  F3  *,*  T4  *.*  F5  «,*  F6  •• 

3  •  OR!*/ 

IYCMAR  (  3 )  •  L  IT(  31 
IFIJPLOT.GT.IPI  JPUC  T  •  IP 
XN1N  »  T.NPLOT(l) 

XB AX  «  TMPLOTI jploti 
IF(X<(!N.E3.XMA»)  RETURN 
C  IF  1ST  T  THE  INI  T!  ALI’E 

IPCIPLSN.NE.Oi  GO  TO  5 
IPLSM  •  1 

GALL  **nOESG(ZAR,OJ 
CALL  SFTSmGI  ZAP.,931  G.O) 

CALL  SETSNGtZAP.97.lS0.0l 
CALL  SETSHGIZAR, 100. 2.01 
5  IYCHARI2I  «  LITI1I 
NY  •  B 

03  10  I  •  I.NPLOT 
IF  IIOPLOTt  II  .E0.25I  GO  TCI  15 
*F|  I0PIOTI  I !  .IF. 12)  GO  TO  20 
NY  •  12 

I YCHAP  (21  «  LITI2I 

call  FNT  SGI  ZAP.  ,1.4,  O.IGII  PL  OTZ.il  .  ISUF) 

CALL  GETCZZI  Z  AR  ,  IHOlO  «  3,  I Bl^  I 
CALLPLITCZZ I  Z  AR  ,IH01 D.3.1YC4ARI2I 1 
CAL.GETCZZIZAR  .IHOLP.A.iaUF  | 

CALlPUTCZZIZAP  ,  I  HOLD  ,4,  I  YCMARI2 )  ) 

CALL  FKT  SGI  ZAR  ,1,4>  0,  JG(  1PL0TI 1 1 1  , 1  HUP  I 
CALI.GE  TCZZ !  ZAP. ,  IHOLO  .3, 19IJF  | 

CALLPUTCZZIZAP  .IHOLO.  2, 1  YC-UP  (31  I 
CAL.GETCZZIZAR.IHOLO.A.IBUF  ) 

CAUPUTCZZIZAR  ,II<OLO,3,IYCHAP!3)  I 
CO  TO  30 

13  CALI  FMTSGt  ZAR, 1,4,0,  JtUPLCTdl )  .18UFJ 

_ IYCHARI2)»LITU>  .  _ _ 

NY*8 

G3  T3  25 

20  CALL  FHTSGIZAR,l,4,0,tPL0TU  1.16UFI 
23  CAllGETCZZI  ZAR  « IHQL  0  .3,  IBUF  I 

CALlPUTCZZ(ZAR,IH0L0.2,IYCNARI2I  ) 

CALlGCTCZZIZAR.IHCLO.A.IBup  >  .... 

CALLPUTCZZIZAP  .IHOLO.  3. 1  YC4ARI2)  I 
30  IYCMAR  I !  I  «  *JA**FSi  lDPLOKI)  f 
YNIN  «  PLOT!  IPAII-I  )♦!» 
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Y*AX  «  YMIN 
03  40  J  «  2.  JALOT 

YAH  «  AMlVlf  YMM.ALOTtlMt  l~n»JM 
40  *AAX  * 

IHYAIN.EO.YMAM  00  TO  10 
CALL  SU8JEGIZA«,XNIN,YKtN.XHAX.Yt«AXI 

CALL  SEVUMGI ZLA. 1 .9EL  X.DELY . Z XTH  .  JYTH.OLX  »OLY .XANT .YFNT I 
03  60  J  «  10*. 104 
40  ZA»(JJ  a  0.0 

CALL  GA  lOCt  2 AS  «OELX  .DELY.  I XTH  .  JYTM) 

CALL  SET  SMC! 2 AA. 45. 1.0) 

CALL  L  ABELS  ( Z AS.O.DL  X.O.  KENT! 

CALL  L ABELCI  Z  AA,  1  .DL  Y« 0.  YFNT) 
call  SETSNGl  ZAA.4S,  1.5) 

.  CALL  TITLE6(JAA,14, 14HTINE  ! SECOMJSI  .MY ,5 YCKAA,70 »T tUEl 
CALL  L  !»E5G»2AA,JALOT,YNAlOT,FtOTUA*II-l)»t)) 

C  «£»  f*  AA£ 

CALL  FAGEGIZAX.O.ltl) 

10  CONTINUE 
AETU»N 

_ END  . 


Figure  20.  (Continued) 


TEST  DATA 


RECORDED  DATA 

The  acceleration  and  strain  gage  data  recorded  on  the  Central  Data  System 
^DS)  are  presented  in  Figures  21  through  46.  The  CDS  sample  is  at  a  rate 
of  1500  per  sec.  This  provides  5  samples  per  cycle  for  a  300-Hz  signal. 
The  list  of  acceleration  channels  is  presented  in  Volume  I,  Table  IX. 
Channels  6l  and  62  represent  the  strain  gage  data  near  the  leading~’e3ge 
of  the  forward  and  aft  landing  skid  struts,  respectively.  The  time  of 
impact  is  zero  (0)  on  the  time  scale.  Positive  times  occur  after 
impact. 

100-CPS  LOW-PASS  FILTERED  TEST  DATA 

Thirteen  acceleration  data  channels  were  recorded  on  FM  tape  while  the 
full  complement  of  data  was  being  recorded  simultaneously  in  CDS.  The 
channels  that  were  recorded  on  tape  are: 

Channel  No.  Identification 

07  Pilot  Seat  Pan  Vertical  Acceleration 

08  Pilot  Seat  Pan  Lateral  Acceleration 

09  Copilot  Seat  Pan  Vertical  Acceleration 

10  Copilot  Seat  Pan  Lateral  Acceleration 

30  Copilot  Floor  Vertical  Acceleration 

31  Copilot  Floor  Lateral  Acceleration 

36  Passenger  Floor  Vertical  Acceleration 

40  Transmission  Vertical  Acceleration 

41  Transmission  Lateral  Acceleration 

42  Transmission  Axial  Acceleration 

43  Engine  Vertical  Acceleration 

44  Engine  Lateral  Acceleration 

4$  Engine  Axial  Acceleration 


Figures  47  through  59  shov  the  filtered  data. 


ACCELERATION,  O’S  ACCELERATION,  G'S 


Figure  21.  Recorded  Time  History,  Pilot  Seat  Pan, 
Vertical  Acceleration  (Channel  07). 
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Figure  27.  Recorded  Time  History,  Floor  Pilot  Location, 

Vertical  Acceleration  (Channel  32) .  j 
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Figure  28.  Recorded  Time  History,  ^loor  Pilot  Location, 
Lateral  Acceleration  (Channel  33). 
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Recorded  Time  History,  Passenger  Pelvic,  Lateral 
Acceleration  (Channel  60) . 
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Figure  1*8. 


100-CPS  Low-Pass  Filtered  Test  Data,  Pilot  Seat  Pan, 
Lateral  Acceleration  (Channel  08). 
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Figure  1*9-  100-CPS  Low-Pass  Filtered  Test  Data,  Copilot  Seat  Pan 

Vertical  Acceleration  (Channel  09 )» 
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ACCELERATION,  G'S  ACCELERATION,  G*S 


Housing,  Vertical  Acceleration  (Channel  Uo). 
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Figure  55 •  100-CPS  Lov-Pass  Filtered  Test  Data,  Transmission  Rotor 

Housing,  Lateral  Acceleration  (Channel  Ui). 
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Figure  56. 
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100-CPS  Low-Pass  Filtered  Test  Data,  Transmission  Rotor 
Housing,  Axial  Acceleration  (Channel  A2) , 
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Figure  57-  100-CPS  Low-Pass  Filtered  Test  Data,  Engine, 

Vertical  Acceleration  (Channel  A3). 
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Figure  58. 


100-CPS  Lov-?ass  Filtered  Test  Data,  Engine, 
.ateral  Acceleration  (Channel  AA). 
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TIME  HISTORIES  OF  INTEGRATED  DATA 


The  integrated  velocities  and  displacements  were  obtained  from  the  recorded 
accelerations.  A  digital  program  was  written  which  numerically  integrated 
the  acceleration  time  histories  using  a  trapezoidal  rule  and  an  integration 
time  interval  of  .0008.  The  acceleration  data  was  adjusted  to  account  for 
channel  noise,  offset  accelerations  due  to  initiel  swing  positions,  and 
post-test  position  changes  resulting  from  one  or  more  of  the  following 
sources:  structural  damage,  seat  collapse,  floor  buckling,  and  passenger 
movement.  The  velocities  obtained  from  integrating  the  accelerations  are 
shown  in  Figures  60  through  70.  The  displacements  obtained  from  the  inte¬ 
grated  velocities  sore  shown  in  Figures  71  through  82. 

IMPACT  VELOCITY  DATA 

Figure-!  83  through  87  are  obtained  from  analysis  of  the  high  speed  film 
and  show  the  sequence  of  events  and  the  vertical  and  lateral  velocities 
and  displacements. 


VELOCITY,  PPS  _ _ _ _  VEI,0CITy 


PILOT  SEAT  PAN,  LATERAL,  CHANNEL  08 


Figure  60.  Integrated  Veloctics,  Pilot  Seat  Pan. 


177 


‘■TWBJSWW*  ’.‘.‘'‘V 


FLOOR,  PILOT  LOC,,  VERTICAL,  CHANKSL  32 


VELOCITT,  FPG  VELOCITY 


sashsH 


l  i  i  i  l  l  i  l  !  i  1  I  I  I  I 

CARGO  FLOOR,  FWD.  RIGHT,  VERTICAL,  CHAKKEL  34 


I  I  ! 


I  I  I  i 


f  I 


■■■■■■GDI 

liiiiinni 


TRANSMISSION  ROTOR'  HOUSING ,  VERTICAL,  CHANNEL  kO 


Figure  67 •  Integrated  Velocities,  Transmission  Rotor  Housing. 


ENGINE,  AXIAL,  CHANNEL  45 
Figure  68.  Integrated  Velocities,  Engine. 


Firure  6y*  Int^srated  Velocities,  Tail  Rotor  Gearbox. 
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Figure  80.  Integrated  Displacement,  Tail  Rotor  Gearbox,  Vertical 
Channel  k6. 
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Figure  83.  Sequence  of  Events  -  Film  Data. 


Lateral  Impact  Velocity  -  Film  Data 


Time  not  related  to 


p< 


h^  »  50  sin  10  +  48  cos  10 

sin  10°  =  .1736 
cos  10°  =  .9848 

hk  =  (50  x  .1736  +  48  x  .9848)  1/12 
h4  =  (8.63  +  47.5)  1/12 
\  =  4.65  ft. 

fa4  -  I  gt2  +  Vyt  =  4.65 
h  *  11.6  -  4.65  =  6.95 

16.1  t2  +8.2  t  -  6.95  «  0 

t  3  *1?  +  ^Tb2  ”*^ac 

2a  7 

t  =  .5  see 

V  -  4vo2  *  (2  gh) 

-  4(8.2)2  +  (64.4  x  6*95)  ^ 

V  »  22.8  fps 

Sh  »  18.6  x  .5  =  9-3  ft  (lateral  horizontal  displacement  of 

vehicle) 


Wt  -  8600  lb 


APPROACH  BO.  2 

EE  »  (1/2)1  w  =  Wh  Ix  =  33034  lb-in. -sec^(Rcl] 

W.  -  8600  lb 

»  8600(12x6.6)  =  680,000  in. -lb  z 

h  =  18.2  -  11.6 

I  .  =  I  +  (M  d2)  =  33034  +  1  8600  x(42  x  122)  I  = 

**  x  0  _j 

=  330^  +  (6,050,000)  =  6.1  (106) 

I  .  •  refer.-;  to  fulcrum  point  &i  U6  ft  from  CG 


=  18.2  -  11.6  »  6.6 


apfrgaji:  :<«:.  .: 


(Cent’ a, 


I  •=  o.l  (ICC')  lb -in. -see2 
xt 


2  x  680,000 

6.1  (lo)6 


=  .48  rad/sec 


Vt  =  KK  =  (42  x  12)  .48  =  240  in. /see 

V  “  Tangential  Vel  =  20  ft/ sec 

L» 

V  =  Vt  (sin  )  =  240  (.405)  =  8.1  ft/sec 
\  =  Vt  ^C0S  '  =  2l*°  (*92'  =  18,11  ft/sec 

Assume  that  at  ground  the  CG  is  4.7  ft  frox  the  ground  level. 


The  free  vertical  distance  is:  (ii.6  -  4.7) 


The  final  vertical  velocity  is: 


V ’  *  4  2gh  =  22.6  ft/ sec 

v3 


The  time  for  the  free-fall  portion  is: 


-  .48  sec 


v  av6- 


Assuming  that  the  lateral  (horizontal)  velocity  is  constant, 
the  lateral  horizontal  displacement  of  the  body  is: 

^  -  Vh  (-„)  »  3.8.4  1 .48,  =  8.9  ft 

3-4 

uN  Ihe  vertical  velocity  stated  in  the  test  plan  was  based  on 
expressing  the  final  velocity  as  J  2gh  -f  V1 


V  -  vertical  velocity  component  at  initiation 
of  free  fall 


The  results  of  the  analysis  using  a  31-sass  model  to  correlate  with  the 
drop  test  data  are  presented  in  the  section  in  Volume  I  entitled 
CORRECTION.  The  following  output  plots  representing  a  cross  section  of 
the  time  histories  are  presented  in  Figures  88  through  100: 

Aft  Fuselage  Lateral  Velocity 

Forward  Fuselage  lateral  Velocity 

Aft  Fuselage  Vertical  Velocity 

Forward  Fuselage  Vertical  Velocity 

Engine  lateral  Acceleration 

Transmission  Rotor  Housing  lateral  Acceleration 

Mid  Fuselage  lateral  Acceleration 

Engine  Vertical  Acceleration 

Transmission  Rotor  Housing  Vertical  Acceleration 
Mid  Fuselage  Vertical  Acceleration 
Engine  Mount  Vertical  Deflection 
Transmission  Mount  Vertical  Deflection 
Forward  Occupant  Vertical  Deflection 


COMPARISON  OF  AKAEHTCAL  AND  TEST  RESULTS  -  AXIAL  RESPONSES 

Figures  101  through  106  show  comparisons  of  analytical  and  test  axial 
responses  for  the  engine  and  transmission.  Accelerations,  velocities  and 
displacements  are  presented.  No  attempt  was  made  to  obtain  good  correla¬ 
tion  with  the  axial  responses,  since  the  objective  was  to  obtain  good 
correlation  of  a  combined  vertical-lateral  drop.  However,  the  accelera¬ 
tion  results  are  still  close  to  the  right  magnitude,  although  the  analyti 
cal  results  appear  to  lag  behind  the  test  results  by  30-50  milliseconds. 
The  velocities  and  displacements  show  consistent  trends,  but  the  magni¬ 
tudes  are  off.  It  is  felt  that  the  results  shown  are  quite  reasonable 
far  a  first  approximation  of  the  input  data,  and  that  acceptable  correla¬ 
tion  of  the  axial  responses  could  be  obtained  with  a  little  additional 
ef fart . 
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Correlation  Run  Analysis  Output,  Aft  Floor,  lateral  Velocity  Time  History. 


IIUIIIU 


S,0  {NQI1VH3TI30C'V 


Figure  92.  Correlation  Run  Analysis  Output,  Engine, lateral  Acceleration  Time  History. 


Acceleration  Time  History. 
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Figure  95.  Correlation  Run  Analysis  Output,  Engine, Vertical  Acceleration  Time  History. 


Figure  9 6.  Correlation  Run  Analysis  Output,  Transmission  Rotor  Housing, Vertical 
Acceleration  Time  History. 


Figure  97.  Correlation  Run  Analysis  Output,  Mid-Floor,  Vertical  Acceleration  Time  History. 


Correlation  Run  Analysis  Output,  Engine  Mount, Vertical  Deflection 
Time  History. 
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Figure  101.  Correlation,  Transmission  Rotor  Housing 
Axial  Acceleration. 


THE,  MSEC 
CHANNEL  45 


figure  102,  Correlation,  Engine  Axial  Acceleration . 


TIME,  SEC 
CHANNELS 


'igure  103.  Correlation,  Transmission  Rotor  Housing  Axial 
Velocity. 
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Figure  105.  Correlation,  Transmission  Rotor  Housing  Axial 
Displacement. 


Figure  106.  Correlation,  Engine  Axial 
Displacement. 
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